Shapes Formulas

[ExcelNewb09]

I have a picture I want to change through VBA.

the following code works:

    ActiveSheet.Shapes("picTransfer").Select
    
    Selection.Formula = "SALS!Picture"

but this code doesn't

    ActiveSheet.Shapes("picTransfer").Formula = "SALS!Picture"

any ideas why?

 

[HalfAce]

I'm sure there are more technical explanations but suffice to say that the Shape is not a worksheet object. It's just an object planted on the sheet.

You have the option though to dismiss focus from the object (de-select it) by either selecting/setting focus to something else or using the line:
SendKeys "{ESC}"

Hope it helps.

 

[pgc01]

Hi

A shape does not have any Formula property.

You are using a shape as a container to an object. You must access the object inside the shape. You forgot to mentions what object you have.

For a drawing object try:

ActiveSheet.Shapes("picTransfer").DrawingObject.Formula = "SALS!Picture"

This is more general, will also work for other cases:

ActiveSheet.Shapes("picTransfer").OLEFormat.Object.Formula = "SALS!Picture"

Please try it and if it doesn't work post details: what object do you have, how you created it (for ex.: from the forms or from the controls toolbar), the code you wrote, etc.

 

[ExcelNewb09]

Thanks ya'll!

 

[mikerickson]

Formula is not a property of a Shape. So it cant be set. The first bit of coded errors for me.

What are you trying to achieve?