slang
01-03-2012, 08:32 AM
This code works in another section of the app but I can not get it to work anywhere else?:dunno
I can even record the macro and then try to play it back it comes back with "Compile Error, Variable not defined" on the "msoFalse" and "msoScaleFromTopLeft" parameters?
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 1/3/2012
'
'
ActiveSheet.Shapes("dgapic1").Select
Selection.ShapeRange.ScaleWidth 1.4, , msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.4, msoFalse, msoScaleFromTopLeft
Range("F30").Select
End Sub
This is in a module and ran in a sheet that has the correct picture object in place. Wierd this is there is code almost the same in other parts of the app and they work fine?:banghead:
Excel 2003
Is this another "Brain Fart" on my behalf?:rofl:
Man, I need to stay in VBA and not just jump back in when something needs fixed or changed.
Sorry if it is a simple one....
I can even record the macro and then try to play it back it comes back with "Compile Error, Variable not defined" on the "msoFalse" and "msoScaleFromTopLeft" parameters?
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 1/3/2012
'
'
ActiveSheet.Shapes("dgapic1").Select
Selection.ShapeRange.ScaleWidth 1.4, , msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.4, msoFalse, msoScaleFromTopLeft
Range("F30").Select
End Sub
This is in a module and ran in a sheet that has the correct picture object in place. Wierd this is there is code almost the same in other parts of the app and they work fine?:banghead:
Excel 2003
Is this another "Brain Fart" on my behalf?:rofl:
Man, I need to stay in VBA and not just jump back in when something needs fixed or changed.
Sorry if it is a simple one....