一键批量插入图片的2个疑难问题（已解决，方案上传供分享）

zjdh · 发表于 2014-9-12 09:15

指定图不删.rar (1.15 MB, 下载次数: 141)

lk710618 · 发表于 2014-9-11 22:17

本帖最后由 lk710618 于 2014-9-11 22:21 编辑

zjdh 发表于 2014-8-6 14:15
不过不适合于多区域分别插入图片

老师，弱弱的问一下，如果我有个折线图在表中，不想删除，如何改进？
目前只要一点控件，所有图都删了，包括我另做的折线图

lk710618 · 发表于 2014-9-12 10:21

zjdh 发表于 2014-9-12 09:15

老师，还是被删的

zjdh · 发表于 2014-9-12 14:44

没有啊

zjdh · 发表于 2014-9-12 15:00

可能不同版本的图表名称不同，这个你再试试：

指定图不删2.rar (1.14 MB, 下载次数: 91)

lk710618 · 发表于 2014-9-13 10:31

zjdh 发表于 2014-9-12 15:00
可能不同版本的图表名称不同，这个你再试试：

老师，在我这个版本里还是会删除折线图，不过另有老师给了我这段代码是可以不删折线图的，可惜我功力不够，弄不懂这段代码和您代码差异的原因
Private Sub CommandButton2_Click()
ActiveSheet.Range("A:Z").ClearComments
For Each shp In ActiveSheet.Shapes
      If Not shp.Name Like "Command*" And Not shp.Name Like "Chart*" Then
      shp.Delete
      End If
Next
End Sub

yf_home · 发表于 2014-9-13 10:45

留个记号，值得学习。

zjdh · 发表于 2014-9-13 14:02

lk710618 发表于 2014-9-13 10:31
老师，在我这个版本里还是会删除折线图，不过另有老师给了我这段代码是可以不删折线图的，可惜我功力不够 ...

我第一个附件是以图形名称来判断的，在我的版本里名称是中文的，你的版本中名称不是中文的。
第二个附件是以图形的类型来判断的，可能你的版本中类型字符不同。
由于你的版本中控件名称不是中文的，所以用英文名称判断就行了。

lcjy11185 · 发表于 2015-4-9 17:03

做个记号，学习了

512902 · 发表于 2015-4-30 10:51

做个记号，学习了

		自动登录	找回密码
密码			免费注册

[求助] 一键批量插入图片的2个疑难问题（已解决，方案上传供分享）