Macro for variable picture

N

_Nate

....
Sheets("Actions").Select
Range("B16").Select
sImageToLoad = Sheets("Macros").Range("A2")
ActiveSheet.Pictures.Insert (sImageToLoad)
ActiveSheet.Shapes ("Picture 37")
Selection.ShapeRange.ScaleWidth 1.34, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.34, msoFalse,
msoScaleFromTopLeft
....

I need help with the proper format to make "Picture 37" a variable in
the function. Each time this step is run in large macro, the picture
number changes.

Many thanks in advance.
_Nate
 
J

Joel

PictureNumber = 137
PictureName = "Picture " & PictureNumber

Sheets("Actions").Select
Range("B16").Select
sImageToLoad = Sheets("Macros").Range("A2")
ActiveSheet.Pictures.Insert (sImageToLoad)
ActiveSheet.Shapes (PictureName)
Selection.ShapeRange.ScaleWidth 1.34, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.34, msoFalse,
msoScaleFromTopLeft
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Insert Picture using Macro 10
Resize commentbox in VB 1
Move a picture with a vba macro 8
Insert Pic Which User Chooses into Comment 1
change size of object 1
explicitly naming shapes, groups, etc, in macros for Word drawings? 7
Macro to insert an object in a specific cell 2007` 2
Macro to have equal size charts and picture in MS Word 11

Top