Replace the Picture within an Image Control with Picture: (None)

[PeterMac65]

Hi
I have a series of ActiveX Images in a worksheet that i wish to remove the contents
The Images have names eg "North", "South" etc

I'm looking for VBA code to replace the contents with Null ie, Picture = (None)

 

[Kenneth Hobson]

Sub Test()
  Dim s As OLEObject
  Set s = Worksheets(1).OLEObjects("North")
  s.Object.Picture = LoadPicture("")
End Sub

 

[PeterMac65]

Thanks Kenneth for the help.
I've included my code below

Sub ClearOLEObjects()
Dim s As OLEObject
Set s = Worksheets("Cost").OLEObjects("North")
End Sub

 

[Rick Rothstein]

You can clear (remove the picture, leave the control) the Image control with just a single line of code (no other supporting code is required)...

Set Worksheets("Cost").OLEObjects("North").Object.Picture = Nothing