title image


Smiley Re: Ohne Pfad und für eine einzelne Grafik - kwT.
'Attribute VB_Name = "modInlineshapeBeschriften"

Sub InlineshapeBeschriften()

Dim docRange As Range, myPic, z

'Range vom Dokument-Anfang bis zur

'Cursorposition bilden

Set docRange = ActiveDocument.Range _

(Start:=ActiveDocument.Range.Start, _

End:=Selection.Range.End)

'Grafiken innerhalb des Range zählen

z = docRange.InlineShapes.Count

'

Set myPic = ActiveDocument.InlineShapes(z)

myPic.Select

'nur verknüpfte Grafiken berücksichtigen

If myPic.Type = wdInlineShapeLinkedPicture Then

'MsgBox myPic.LinkFormat.SourcePath & "\" _

'& myPic.LinkFormat.SourceName

'(Pfad und) Name der verknüpften Grafik

slink = vbCrLf & myPic.LinkFormat.SourceName

'Markierung aufheben

Selection.Collapse Direction:=wdCollapseEnd

'Inhalt der Variablen sLink einfügen

Selection.TypeText Text:=slink & vbCrLf

End If

End Sub



geschrieben von

Anhang
Bild 11706 zu Artikel 550181

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: