[skylark_za]

Hi

I am unable to run this macro 100% correctly. It seems to work if I
double click the macro button when the document is unprotected but when
the document is protected, the macro no longer functions at all when
double clicked. The cursor just jumps to the next text form field. Am I
doing something wrong when applying this macro or when I am executing
it?

I copied and added you macro as it appears below.

Public Sub ProtectedInsertPicture()
Dim ilsPicture As InlineShape
Dim strFileName As String
Dim sngRatio As Single
Const max_width = 216 ' = 3 inches (in points)

' temporarily unprotect
ActiveDocument.Unprotect

' show Insert Picture dialog
With Dialogs(wdDialogInsertPicture)
If .Display = 0 Then
ActiveDocument.Protect _
Type:=wdAllowOnlyFormFields, _
NoReset:=True
Exit Sub
End If
strFileName = .Name
End With

' remove macrobutton
Selection.Delete

Set ilsPicture = ActiveDocument.InlineShapes _
AddPicture( _
FileName:=strFileName, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Range:=Selection.Range)

' limit size of picture to max_width (optional)
With ilsPicture
If .Width max_width Then
sngRatio = CSng(max_width) / .Width
Width = max_width
Height = .Height * sngRatio
End If
End With

' reprotect, keeping form field contents intact
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True
End Sub


Regards

Jason


--
skylark_za