Hallo Liebe Community,
ich bin noch recht neu in der Programmierung von Word Makros und stoße dabei zurzeit auf ein Problem was ich nicht gelöst bekomme.
Zu meinem Problem:
Ich möchte alle Bilder aus einem Ordner an eine bestimmte Stelle im Dokument einfügen und diese Bilder dann mit einer Beschriftung versehen. Die Beschriftung soll den Namen der Datei enthalten. Die Beschriftung hat den Hintergrund das später dann ein Bildverzeichnis erstellt werden soll.
Ich habe es soweit geschafft, dass alle Bilder aus dem gewählten Ordner in das Dokument eingefügt werden, allerdings schaffe ich es nicht die Beschriftung hinzuzufügen.
Hier einmal mein Quellcode:
Als Fehlermeldung bekomme ich:
Laufzeitfehler '4198':
Befehl misslungen
Gruß KronSii
ich bin noch recht neu in der Programmierung von Word Makros und stoße dabei zurzeit auf ein Problem was ich nicht gelöst bekomme.
Zu meinem Problem:
Ich möchte alle Bilder aus einem Ordner an eine bestimmte Stelle im Dokument einfügen und diese Bilder dann mit einer Beschriftung versehen. Die Beschriftung soll den Namen der Datei enthalten. Die Beschriftung hat den Hintergrund das später dann ein Bildverzeichnis erstellt werden soll.
Ich habe es soweit geschafft, dass alle Bilder aus dem gewählten Ordner in das Dokument eingefügt werden, allerdings schaffe ich es nicht die Beschriftung hinzuzufügen.
Hier einmal mein Quellcode:
Quellcode
- strPfad = UF03_BilderDiagramme.TextBox03_PfadBilder.Value + "\"
- Endung = "jpg"
- sBilddateiname = Dir(strPfad & "*." & Endung)
- Set Position = ActiveDocument.Sections(9).Range.Characters(10)
- Do While sBilddateiname <> ""
- Bildname = left$(sBilddateiname, Len(sBilddateiname) - 4)
- Set Bild = ActiveDocument.InlineShapes.AddPicture(FileName:= _
- strPfad & sBilddateiname, LinkToFile:=False, SaveWithDocument:=True, Range:=Position)
- Bild.Select
- Bild.LockAspectRatio = msoTrue
- Bild.width = CentimetersToPoints(12)
- Selection.InsertCaption Label:=Bildueberschrift, _
- Title:=": " + Bildname, Position:=wdCaptionPositionAbove
- Selection.TypeText Chr$(13)
- Selection.TypeText Chr$(13)
- sBilddateiname = Dir()
- Loop
Als Fehlermeldung bekomme ich:
Laufzeitfehler '4198':
Befehl misslungen
Gruß KronSii
