Activesheet.Pictures.Insert

[dchow]

Can I control the position and size of the picture programmatically?

 

[Bill Li]

ActiveSheet.Pictures.Insert("L:\untitled2.bmp").Select
Selection.ShapeRange.ScaleWidth 0.56, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.56, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 164.25
Selection.ShapeRange.IncrementTop 81.75

 

[dchow]

Thanks.

ActiveSheet.Pictures.Insert("L:\untitled2.bmp").Select
Selection.ShapeRange.ScaleWidth 0.56, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.56, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 164.25
Selection.ShapeRange.IncrementTop 81.75