Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1998|回复: 8

[已解决]vba能否实现连续有数据的单元格生成一张图片?

[复制链接]
发表于 2017-2-20 13:00 | 显示全部楼层 |阅读模式
求助大神,一张工作表里有几张分开的表格,有没有可能实现每个表格单独生成一张底色是透明的图片?
最佳答案
2017-2-21 18:48
  1. 参考附件
复制代码

测试.zip

9.01 KB, 下载次数: 5

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-2-21 18:46 | 显示全部楼层
  1. Sub test()
  2.     Dim rng As Range, temprng As Range, i&
  3.     Application.ScreenUpdating = False
  4.     ActiveWindow.DisplayGridlines = False
  5.     For i = 2 To Cells(Rows.Count, 2).End(3).Row
  6.         If Trim(Cells(i, 2)) = "小组" Then
  7.             Set rng = Cells(i, 2).CurrentRegion
  8.             Set temprng = rng.Offset(0, 7)
  9.             rng.CopyPicture
  10.             temprng.PasteSpecial
  11.         End If
  12.     Next
  13.     Cells(2, 2).Select
  14.     Application.ScreenUpdating = True
  15. End Sub
复制代码
回复

使用道具 举报

发表于 2017-2-21 18:48 | 显示全部楼层    本楼为最佳答案   
  1. 参考附件
复制代码

测试.zip

17.33 KB, 下载次数: 11

评分

参与人数 1 +1 收起 理由
donis2017 + 1

查看全部评分

回复

使用道具 举报

发表于 2017-2-22 09:11 | 显示全部楼层
支持了,值得学习,对“迷你图”类型可以单独保存成一个单元格的图片了,谢谢分享!
回复

使用道具 举报

 楼主| 发表于 2017-2-22 13:02 | 显示全部楼层
回复

使用道具 举报

发表于 2017-2-22 13:05 | 显示全部楼层

不客气,有帮助就评下最佳吧
回复

使用道具 举报

 楼主| 发表于 2017-2-22 13:19 | 显示全部楼层
望帝春心 发表于 2017-2-22 13:05
不客气,有帮助就评下最佳吧

评了哈,问多一下能不能增加导出图片到指定目录的功能?
回复

使用道具 举报

发表于 2017-2-22 13:21 | 显示全部楼层
donis2017 发表于 2017-2-22 13:19
评了哈,问多一下能不能增加导出图片到指定目录的功能?

应该可以吧,但是我也VBA新手不知道能不能做出来。不行你再发个帖问问吧,让其他大神帮你试试,看能不能实现这个功能。
回复

使用道具 举报

 楼主| 发表于 2017-2-22 13:30 | 显示全部楼层
望帝春心 发表于 2017-2-22 13:21
应该可以吧,但是我也VBA新手不知道能不能做出来。不行你再发个帖问问吧,让其他大神帮你试试,看能不能 ...

好的谢谢啦
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 19:36 , Processed in 0.637140 second(s), 17 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表