Simple macro to insert user selected picture into Excel 2003

M

Melody

Hi,

I currently have a protected spreadsheet that I want to add pictures too. I
have been able to figure out a certain amount of the programming but I'm not
aware of how to make it open a browser window to pick the file rather than
insert a specific file. Let me emphasize, I want to keep this simple. Below
is what I have so far. What do I replace the specific file pick with to
allow for any picture file to be picked?

ActiveSheet.Unprotect
Range("A1:B2").Select

' This is the part I need to change.
ActiveSheet.Pictures.Insert( _
"C:\Documents and
Settings\casem02.AMER\Desktop\32604galloapproval.jpg").Select

Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 712#
Selection.ShapeRange.Width = 892#
Selection.ShapeRange.Rotation = 0#
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowInsertingRows:=True
End Sub
 
G

Gary''s Student

Use a dialog box:

Sub dural()
myPictureName = Application.GetOpenFilename _
(filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif")
ActiveSheet.Pictures.Insert(myPictureName).Select

End Sub
 
M

Melody

Worked great. Nice and Simple. Thanks.

Gary''s Student said:
Use a dialog box:

Sub dural()
myPictureName = Application.GetOpenFilename _
(filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif")
ActiveSheet.Pictures.Insert(myPictureName).Select

End Sub
 

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

Top