作者yimean (温柔杀手)
看板Office
标题[算表] VBA如何能正确的删除物件
时间Sun Nov 4 21:15:24 2018
软体:Excel
版本:2013
各位版上的大大晚上好。
我用下列方法在Excel的工作表中插入物件
Sub ImportPDF(item_number As String, sequency As Integer)
' 插入PDF调整
Dim PDF As Object
Dim PDFfilename As String
Dim real_locate_row As Integer
Dim sheetinfo As String
PDFfilename = item_number & ".pdf"
real_locate_row = (sequency - 1) * 36 + 1
Set PDF = ActiveSheet.OLEObjects.Add(Filename:=InsertPath & "\" &
PDFfilename, Link:=False, DisplayAsIcon:=False)
With PDF
.Top = ActiveSheet.Cells(real_locate_row, 2).Top
.Left = ActiveSheet.Cells(real_locate_row, 2).Left
.Width = 260
.Height = 355
End With
End Sub
在一个页面中可能会有多个物件
如果我要进行删除应该要怎麽做？
看微软的说明OLEObjects(index).Delete
但是我并不知道index是多少？请问要怎麽用程式去看？
我也曾尝试过用PDF.Delete，也是不行。
我在想，我不是已经将这个物件叫做PDF了吗？怎麽还不能Delet?
另外，如果PDF真的可以是一个物件名称的话，那麽我有多个PDF要插入，能不能建议好
的方法来命名插入的PDF?
这样我就可以找到正确的物件然後删除他了。
感恩
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.195.98.141
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1541337326.A.3FA.html
1F：→ soyoso: 在with内先.name = "自订名称字串"，如"pdf" 11/04 21:22
2F：→ soyoso: 如其他程序sub内删除的话activesheet.oleobjects("pdf"). 11/04 21:25
3F：→ soyoso: delete 11/04 21:25
4F：→ yimean: 收到，感恩。 11/04 21:26
5F：→ soyoso: 如要删除其他工作表的话，再以worksheets或sheets指定 11/04 21:27
6F：推 newacc: PDF在你的code里面并不是物件名称 11/04 22:15
7F：→ yimean: 那麽请教一下，在这个Case中PDF是什麽东西呢？ 11/05 09:12
8F：→ soyoso: 为变数，dim处有宣告 11/05 09:25