软件:Excel
版本:2013
各位版大晚安，虽然经过Soyoso大大的指导，我还是没能成功，很是挫折。
所以我把我的尝试过程做比较详细的描述，希望能够各位大大明白我所遭遇的问题。
第一步我是先录制宏。两个宏都是插入(PDF跟图档)然后调整大小最后删除。
录制的程式码如下连结。
https://imgur.com/mSWkDzl
第一个问题就是，录制完后，原封不动直接执行，第一个PDF，会出现错误。如下所示。
https://imgur.com/Fwt1Tpc
第二个问题就是将宏修改成如下。
Sub 插入PDF调整并删除()
' 插入PDF调整并删除 宏
Dim PDF As Object
Set PDF = ActiveSheet.OLEObjects.Add(Filename:="C:\temp\test.pdf", _
Link:=False,DisplayAsIcon:=False)
With PDF
ActiveSheet.OLEObjects("PDF").Shapes.ScaleWidth 0.5511904699, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.OLEObjects("PDF").Shapes.ScaleHeight 0.5511904762, msoFalse, _
msoScaleFromTopLeft
.Select
Selection.Delete
End With
End Sub
错误讯息如下
https://imgur.com/Eh48xY7
第三个问题是关于插入图片的问题。这里我使用的方法是Pictures.insert
在程式码中完全没有提到这个物件的名字。
虽然Run宏没问题。但是我想，真正在写程式的时候会有两张以上的图片应用。
所以，我就尝试录制插入多张图片。果真发现有编号。于是我就跟PDF一样如法炮制。
结果，想当然尔，又是不行。错误讯息是型态不符。
Sub 插入多张图片并删除()
'
' 插入多张图片并删除 宏
Dim a As Shape
Dim b As Shape
Dim c As Shape
Set a = ActiveSheet.Pictures.Insert("C:\temp\ScreenHunter 58.jpg")
Set b = ActiveSheet.Pictures.Insert("C:\temp\ScreenHunter 59.jpg")
Set c = ActiveSheet.Pictures.Insert("C:\temp\ScreenHunter 55.jpg")
ActiveSheet.Shapes.Range(Array(a)).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array(b)).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array(c)).Select
Selection.Delete
End Sub
看来两个问题都出在物件的用法。我有去爬微软的说明。
我不确定我的理解是否有错Objects跟Shapes都是物件的集合。
在这边都已经有出现了，所以，我其实不太明白，为什么会错。
恳请高手大大指导，感恩。

第一个问题，你再执行一次之后新增的pdf在Shapes里面可能不是叫Object 20，所以可能是程式找不到对应物件第二个问题，你已经Set好PDF了，直接用PDF呼叫该物件即可，或在With陈述中，直接以.ScaleWidth进行读取或修改第三个问题同第二题，你Set好物件之后，那个a,b,c就是物件本身，不用再去Shapes collection里面找，Shapes()的用法是给序号(数字)或是名字(字串)，而不是一个物件意即set a完毕后，直接以a.Delete就可以把a删除，不需要select再selection.delete基本上我在写VBA时，除了与使用者互动相关的功能外，能不用select就不用，因为既然你可以用程式码找到要选取的对象，你就能给他一个物件指标，直接对物件操作，一来在处理多物件的时候不会搞错选取对象，二来在效率和程式码可读性都较高

更新资讯

我测试该行没有问题，就算filename路径给错的，错误讯息也不是你提到的那个，可能要提供更详细的资讯才能抓错，例如程式码放置位置，执行是否是新文件等等不过测试时发现另一个问题，.ScaleWidth是Shape Object的方式，但OLEObject里面的Object并没有这个方式，所以可以用另一种写法试试看Dim PDF As ShapeSet PDF = ActiveSheet.Shapes.AddOLEObject(FileName:=""如此才能用PDF.ScaleWidth