title image


Smiley Re: Ein verknüpftes Objekt automatisch in ein eingebettetes umwandeln
Hallo Gabriela,



einige Beispiele für Grafiken die über oder nicht über dem Text liegen:



Sub Test()

' gilt für die erste Grafik im Dokument

' die nicht über dem Text liegt

Set oDok = ActiveDocument

MsgBox "InlineShape = " & oDok.InlineShapes.Count & _

vbCrLf & "Shapes = " & oDok.Shapes.Count



Set oGraf = ActiveDocument.InlineShapes(1)

If oGraf.Type = wdInlineShapeLinkedPicture Then

oGraf.LinkFormat.Update

oGraf.LinkFormat.BreakLink

MsgBox "Verknüpfung"

Else

MsgBox "Keine Verknüpfung"

End If

End Sub



Sub TestA()

For Each oShape In ActiveDocument.Shapes

' gilt für alle Grafiken im Dokument

' die über dem Text liegen

If oShape.Type = msoLinkedOLEObject Then

oShape.LinkFormat.Update

oShape.LinkFormat.BreakLink

End If

Next oShape

End Sub



Sub TestB()

' gilt für alle Grafiken im Dokument

' die nicht über dem Text liegen

For Each xShape In ActiveDocument.InlineShapes

If xShape.Type = wdInlineShapeLinkedOLEObject Then

xShape.LinkFormat.Update

xShape.LinkFormat.BreakLink

End If

Next xShape

End Sub



Wenn Du die Dokumente auch noch automatisiert speichern möchtest, melde Dich noch einmal. Vielleicht gibts da auch noch eine Möglichkeit.

Hubert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: