Sub
InsertPicture()
Dim
ret
As
Integer
, sPic
As
String
, fName
As
String
, shpPicture
As
Shape
With
Dialogs(wdDialogInsertPicture)
ret = .Display
If
ret = vbTrue
Then
fName = .Name
Rem Bild einfügen
With
Selection.InlineShapes.AddPicture(FileName:=fName)
.LockAspectRatio = msoTrue
.Height = CentimetersToPoints(10)
End
With
Selection.Style = ActiveDocument.Styles(
"Standard"
)
Selection.InsertParagraphAfter
Selection.Collapse wdCollapseEnd
Rem Text einfügen
fName = Dateiname_von(fName)
Selection.TypeText Text:=fName
Selection.Style = ActiveDocument.Styles(
"Untertitel"
)
Selection.InsertParagraphAfter
Selection.Collapse wdCollapseEnd
End
If
End
With
End
Sub
Function
Dateiname_von(aa)
As
String
Dateiname_von = Mid(aa, InStrRev(aa, "\") + 1)
Dateiname_von = Mid(Dateiname_von, 1, Len(Dateiname_von) - 4)
End
Function
Nur wie schaffe ich es, das auch eine Mehrfachauswahl beachtet wird?
Gruß Heiko