作者yimean (温柔杀手)
看板Office
标题[算表] VBA插入物件问题
时间Sat Oct 20 22:21:34 2018
软体: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都是物件的集合。
在这边都已经有出现了，所以，我其实不太明白，为什麽会错。
恳请高手大大指导，感恩。
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.195.98.141
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1540045296.A.318.html
1F：推 newacc: 第一个问题，你再执行一次之後新增的pdf在Shapes里面可能 10/20 23:22
2F：→ newacc: 不是叫Object 20，所以可能是程式找不到对应物件 10/20 23:22
3F：推 newacc: 第二个问题，你已经Set好PDF了，直接用PDF呼叫该物件即可 10/20 23:25
4F：→ newacc: ，或在With陈述中，直接以.ScaleWidth进行读取或修改 10/20 23:25
5F：→ newacc: 第三个问题同第二题，你Set好物件之後，那个a,b,c就是物件 10/20 23:29
6F：→ newacc: 本身，不用再去Shapes collection里面找，Shapes()的用法 10/20 23:29
7F：→ newacc: 是给序号(数字)或是名字(字串)，而不是一个物件 10/20 23:29
8F：→ newacc: 意即set a完毕後，直接以a.Delete就可以把a删除，不需要se 10/20 23:31
9F：→ newacc: lect再selection.delete 10/20 23:31
10F：→ newacc: 基本上我在写VBA时，除了与使用者互动相关的功能外，能不 10/20 23:37
11F：→ newacc: 用select就不用，因为既然你可以用程式码找到要选取的对象 10/20 23:37
12F：→ newacc: ，你就能给他一个物件指标，直接对物件操作，一来在处理多 10/20 23:37
13F：→ newacc: 物件的时候不会搞错选取对象，二来在效率和程式码可读性都 10/20 23:38
14F：→ newacc: 较高 10/20 23:38
@newacc大大，感谢指导。
我将我的程式码修改成如下。
Sub importPDF()
' importPDF 巨集
Dim PDF As Object
Set PDF =
ActiveSheet.OLEObjects.Add(Filename:="C:\Users\ACER\Desktop\temp\test.pdf",
Link:=False, DisplayAsIcon:=False)
With PDF
.ScaleWidth 0.6011905583, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.6011904762, msoFalse, msoScaleFromTopLeft
'.Shapes.Range(Array("PDF")).Delete '先注解起来，等上面成功了在试
End With
End Sub
结果一执行还是遇到了问题。吊诡的是，第一行程式码都一模一样，但是今天的错误却
不相同
今天的错误讯息无法取得类别OLEObjects的Add属性。这....
在烦请大大指导，感恩。
※ 编辑: yimean (123.195.98.141), 10/21/2018 08:58:52
15F：→ yimean: 更新资讯 10/21 08:59
16F：→ newacc: 我测试该行没有问题，就算filename路径给错的，错误讯息也 10/21 10:25
17F：→ newacc: 不是你提到的那个，可能要提供更详细的资讯才能抓错，例如 10/21 10:26
18F：→ newacc: 程式码放置位置，执行是否是新文件等等 10/21 10:27
19F：→ newacc: 不过测试时发现另一个问题，.ScaleWidth是Shape Object的 10/21 10:28
20F：→ newacc: 方式，但OLEObject里面的Object并没有这个方式，所以可以 10/21 10:29
21F：→ newacc: 用另一种写法试试看 10/21 10:29
22F：→ newacc: Dim PDF As Shape 10/21 10:29
23F：→ newacc: Set PDF = ActiveSheet.Shapes.AddOLEObject(FileName:="" 10/21 10:30
24F：→ newacc: 如此才能用PDF.ScaleWidth 10/21 10:30