Question with Formula

[ryan_law2000]

Can anyone help with this...
How can I make these pictures import when the sheet is protected, I basically need it to bypass the protection.
this code works perfectly when the sheet is unlocked but once I protect it then the code does not work... I have even "unlocked" the cell the picture is being pasted in and still doesnt work
Any Ideas out there?

Private Sub CommandButton1_Click()
   Dim myPicture As Variant
   Range("C13").Select
   myPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", _
, "Select Picture to Import")
   If myPicture = False Then Exit Sub
   Dim p    As Object
   Dim Factor As Single
   Set p = ActiveSheet.Pictures.Insert(myPicture)
   'Width and Height are in points (1/72 inch)
   Factor = 3.17 / (p.Width / 50)
   p.Width = 230
   p.Height = 173.5
   End Sub

 

[VoG]

Try this, changing the sheet name and password as required

Private Sub CommandButton1_Click()
   Dim myPicture As Variant
   Sheets("Sheets1").Unprotect Password:="xyz"
   Sheets("Sheets1").Activate
   Sheets("Sheet1").Range("C13").Select
   myPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", _
, "Select Picture to Import")
   If myPicture = False Then Exit Sub
   Dim p    As Object
   Dim Factor As Single
   Set p = ActiveSheet.Pictures.Insert(myPicture)
   'Width and Height are in points (1/72 inch)
   Factor = 3.17 / (p.Width / 50)
   p.Width = 230
   p.Height = 173.5
   Sheets("Sheet1").Protect Password:="xyz"
   End Sub

 

[ryan_law2000]

Changed a few things and it works good now... One more question
When the picture is imported onto the sheet is there a way to import it as "Unlocked" so it could be deleted if needed with out unprotecting the sheet?

 

[ryan_law2000]

Or...
When I import the picture can it be named "Picture1"
from there what I can do is create a remove button...

what formula would I use to name the picture "Picture1" automatically when imported into my sheet

and from there what formula would i use to remove"Picture1" from a command button?

 

[Case_Germany]

Hi,

a name assign:

p.Width = 230
p.Height = 173.5
p.Name = "Picture1"

A name delete:

Sub Test()
    ThisWorkbook.Worksheets("Sheet1").Shapes("Picture1").Delete
End Sub

Case_Germany

 

[ryan_law2000]

PERFECT... Thanks so much!