[求助]图片与excel的关系，请高手来帮忙

gz_wu · 发表于 2009-5-14 18:58

先用Acme CAD Converter 将DWG文件批量转成JPG，再用版主的方法。

cc998 · 发表于 2009-6-26 16:02

我试验了下只能插入6个图片，多了就不行了为什么
版主帮忙啊

hhzjxss · 发表于 2009-7-21 22:01

看看5楼LangQueS 版主的附件，收藏了！

pigice007 · 发表于 2009-10-15 16:24

初入公司，感谢楼主，谢谢你给我带来十足的方便~！~！

lora1996 · 发表于 2009-11-14 13:48

好呀,学习中

qinghanche · 发表于 2010-1-1 11:19

多谢高手！

LangQueS · 发表于 2010-1-1 09:17

原帖由 qinghanche 于 2009-12-31 23:48 发表
这个办法，如果在没有图片的情况下，再次双击删除图片这个按钮，就会把删除按钮这个单元格也删除啊，如果继续按这个单元格会不断删除这个单元格，请问如何解决这个问题呢？

将代码中的删除全部对象，改为删除B列范围中的对象……

原代码：

Sub 删除全部对象()
ActiveSheet.DrawingObjects.Select
Selection.Delete
End Sub

修改为：

Sub 删除全部对象()
Dim p As Shape
Set My = Worksheets(1)
For Each p In My.Shapes
If Not Application.Intersect(p.TopLeftCell, Range("b:b")) Is Nothing Then p.Delete
Next
End Sub

[ 本帖最后由 LangQueS 于 2010-1-1 09:18 编辑 ]

qinghanche · 发表于 2009-12-31 23:44

楼主的这个办法，如果在没有图片的情况下，再次双击删除图片这个按钮，就会把删除按钮这个单元格也删除啊，如果继续按这个单元格会不断删除这个单元格，请教各位如何解决这个问题呢？

qinghanche · 发表于 2009-12-31 23:48

这个办法，如果在没有图片的情况下，再次双击删除图片这个按钮，就会把删除按钮这个单元格也删除啊，如果继续按这个单元格会不断删除这个单元格，请问如何解决这个问题呢？

wpillow87 · 发表于 2010-2-3 07:10

不明白是啥意思，要学的还很多啊。。。

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

[求助]图片与excel的关系，请高手来帮忙

感激涕零

回复 29楼 LangQueS 的帖子

回复 5楼 LangQueS 的帖子