M
Melody
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.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
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.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