软件:Excel 版本:2013 仅以分享此篇文章，感谢Soyoso以及Newacc两位大大。 小弟多次在板上发问，内容问题相对于其他人比较复杂。 但是两位大大都耐著性子看完，也许是小弟资质驽钝，有些还真的看不懂。 但是两位大大还是不厌其烦的指导。小弟铭感五内。这个问题之所以想跟大家分享。 是因为，其实小弟也有Google过，但是得到的Sample code，真的是Sample code。 就是可以把功能展现出来，但是呢，在整体程式的架构上，却不好管理跟扩展。 我发现网络上很多的Code都是这样，跟录制宏的感觉有点接近。 小弟并非是为了交交作业，而进行练习，所以这样的Sample code对我来说是不够的。 但，其实，功力深厚的大大肯定可以将Sample code轻易地改成需要的内容。 但，对于我这个没有受过系统性程式训练的人来说，却是有点困难的。因为是观念的问题 所以，我就将我今天花了4个小时尝试的结果跟大家分享。 希望起到抛砖引玉，良善循环的效果。 Sub 插入PDF调整并删除() ' 插入PDF调整并删除 宏 Dim PDF As Object Set PDF = ActiveSheet.OLEObjects.Add(Filename:="C:\temp\test.pdf", _ Link:=False, DisplayAsIcon:=False) With PDF .Width = 100 .Height = 200 End With MsgBox "接下来要删除PDF了" PDF.Delete End Sub Sub 插入JPG调整并删除() Dim img As Variant '这个地方我尝试过宣告成Shape物件但是失败 Set img = ActiveSheet.Pictures.Insert("C:\temp\ScreenHunter_11 Oct. 11 21.55.jpg") With img .Height = 150 .Width = 250 End With MsgBox "接下来要删除了" img.Delete End Sub 功力深厚的大大应该不难发现，JPG插入变量宣告的部分是用了Variant这个巧门。 这就是我说的观念性问题。 野人献曝，还希望大大们不要鞭得太大力。