View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Melody Melody is offline
external usenet poster
 
Posts: 51
Default How to create a simple insert pic macro in Excel 2003

Hi,

I need to be able to insert a picture into a protected worksheet in a
particular cell and then resize it. Let me emphasize, I want to keep it
simple. Below is what I have so far and everything works except I want the
user to be able to browse and pick their own picture. What do I put in place
of the code for picking a particular picture to browse and pick any picture?

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

'What do I replace this code with?
ActiveSheet.Pictures.Insert( _
"C:\Documents and
Settings\casem02.AMER\Desktop\32604galloapproval.j pg").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