title image


Smiley Re: dokument schützen aber bild einfügen ermöglichen
HalloBringe ein zusätzliches Textformularfeld ein.Markiere dieses und vergebe ihm das Zeichenattribut AusgeblendetBringe folgendes Makro in die Formularvorlage einWenn die Formularvorlage noch nicht geschützt ist, doppelklickst Du das Formularfeld und verbindest es mit dem Makro (Makro ausführen bei Ereignis.Nun kannst Du unter Extras > Optionen... > Ansicht vorgeben, dass der ausgeblendete Text nicht angezeigt wird.Schütze schließlich die Formularvorlage und teste den Mechanismus.GrußSub OnEntryPicture()  Dim oRange As Range  Set oRange = Selection.Bookmarks(1).Range  oRange.SetRange oRange.End, oRange.End  If Not ActiveDocument.ProtectionType = -1 Then    ActiveDocument.Unprotect    With Dialogs(wdDialogInsertPicture)      If .Display Then        If Selection.Cells(1).Range.InlineShapes.Count > 0 Then          Selection.Cells(1).Range.InlineShapes(1).Delete        End If        ActiveDocument.InlineShapes.AddPicture FileName:=.Name, Range:=oRange        Selection.Cells(1).Range.InlineShapes(1).Range.Font.Hidden = False      End If    End With    DoEvents    ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=False  End IfEnd Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: