Archive of Mr Excel Message Board

-Ben

Dim PicLocation as String
PicLocation = Application.GetSaveAsFilename("C:\Windows\My Documents", "Image Files (*.gif),*.gif", , "Specify Image Location")
If PicLocation <> "" Then
ActiveSheet.Pictures.Insert(PicLocation).Select
Else
Exit Sub
End If

I have a macro that has:

SelectedFile = Application.GetOpenFilename _
(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

HTH

Any suggestions?

Thanks.

Sheets("Sheet 1").Unprotect
.
.
.
Sheets("Sheet 1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

I think you can even have the macro fill in a password in if one is required to unprotect the document. If you're worried about users going into the VBA Editor to see the password, you could password protect your VBA project and prevent them from viewing the code at all.

-Ben Unfortunately, neither macro will insert a jpg file (logo) into my document (which is protected).

Try this routine;

Sub Insert_Pict()
Dim Pict
Dim ImgFileFormat As String
Dim PictCell As Range
Dim Ans As Integer

ActiveSheet.Protect True, True, True, True, True
ImgFileFormat = "Image Files (*.bmp),others, tif (*.tif),*.tif, jpg (*.jpg),*.jpg"

GetPict:
Pict = Application.GetOpenFilename(ImgFileFormat)
'Note you can load in any nearly file format
If Pict = False Then End

Ans = MsgBox("Open : " & Pict, vbYesNo, "Insert Picture")
If Ans = vbNo Then GoTo GetPict

'Now paste to userselected cell
GetCell:
Set PictCell = Application.InputBox("Select the cell to insert into", Type:=8)
If PictCell.Count > 1 Then MsgBox "Select ONE cell only": GoTo GetCell
PictCell.Select
ActiveSheet.Pictures.Insert(Pict).Select

End Sub

HTH

Ivan