软件: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?
这样我就可以找到正确的物件然后删除他了。
感恩

在with内先.name = "自订名称字串"，如"pdf"如其他程序sub内删除的话activesheet.oleobjects("pdf").delete

收到，感恩。

如要删除其他工作表的话，再以worksheets或sheets指定

PDF在你的code里面并不是物件名称

那么请教一下，在这个Case中PDF是什么东西呢？

为变量，dim处有宣告