PDA

View Full Version : [SOLVED] Renaming inserted Object



axmed.cm
04-25-2019, 08:50 AM
Dear All

Hope you are doing well.

When object/shape is inserted in spreadsheet it aoutomatically takes a name like "Object##", Is there a way to give specific name to taht object?

for example i loaded a file into the sheet as object I want to rename it as "Report1", kindly want to know if that's possible.

Sub LoadReport1()
Filename = Application.GetOpenFilename(Title:="Please choose a file to open", FileFilter:="Excel Files *.xls* (*.xls*),")
ActiveSheet.OLEObjects.Add(Filename:=Filename, Link:=False, DisplayAsIcon:=True, IconFileName:= _
"C:\Windows\Installer\{90150000-0011-0000-1000-0000000FF1CE}\xlicons.exe", _
IconIndex:=0, IconLabel:= _
Filename).Select
End Sub




Thank you

Bob Phillips
04-25-2019, 10:11 AM
Try this


Sub LoadReport1()
Dim myBook As Object
Dim Filename As String

Filename = Application.GetOpenFilename(Title:="Please choose a file to open", _
FileFilter:="Excel Files *.xls* (*.xls*),")
Set myBook = ActiveSheet.OLEObjects.Add(Filename:=Filename, _
Link:=False, _
DisplayAsIcon:=True, _
IconFileName:="C:\Windows\Installer\{90150000-0011-0000-1000-0000000FF1CE}\xlicons.exe", _
IconIndex:=0, _
IconLabel:=Filename)
myBook.Name = "MyBook"
End Sub

axmed.cm
04-25-2019, 11:45 AM
Dear Xld

Thank you,

SOLVED