Resize icon representing embedded object using VBA

Welcome to the forum.

You haven't provided enough information for anyone to help.

Hello NateofCA,

Here is an example. It uses a single cell as the destination for the embedded icon. The icon is then re-sized to match the cell's dimensions. You will need to include the icon's name. he example here uses "Object 1".

Please Login or Register  to view this content.

Thanks for your replies. Here is the code I use to locate a pdf file and insert it as an object with icon displayed

Public Sub btnAddFile()
Dim vFile As Variant
vFile = Application.GetOpenFilename("All Files,*.pdf", Title:=" Find file to insert")
If LCase(vFile) = "false" Then Exit Sub
ActiveSheet.OLEObjects.Add Filename:=vFile, Link:=False, DisplayAsIcon:=True, IconFileName:="C:\WINDOWS\Installer\{AC76BA86-1033-0000-BA7E-100000000002}\PDFFile.ico", IconIndex:=0, IconLabel:="Plot"

End Sub


I fiddled around with the code given by Leith and couldn't figure out how to get it to work. I'm not sure what the icon name would be in my case. It seems like I might be able use something like the line below and that's what I'm checking out now

ActiveCell.FormatConditions.AddIconSetCondition

I put it within the same code loop right after when the file gets inserted. Seems I need to add the properties such as Leith gave.
Thanks.

Nate, please take a few minutes to read the Forum Rules, and then edit your post to wrap your code with Code Tags.

Thanks.

Hello NateofCa,

Here is your code with my code added in.

Please Login or Register  to view this content.