Thema Datum  Von Nutzer Rating
Antwort
11.02.2023 11:01:02 Jonas
NotSolved
Blau Bildbeschriftung mit Hilfe von Makros formatieren (Word)
 11.02.2023 16:01:34 xlKing
*****
Solved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
11.02.2023 16:01:34		 Views:
507		 Rating:
     
Antwort:
 Nein
Thema:
Bildbeschriftung mit Hilfe von Makros formatieren (Word)

Hi Jonas,

Klar geht das, dein Code funktioniert allerdings bei mir nicht. Liegt wahrscheinlich an TitleAutoText:="EinfügenBeschriftung2", der bei mir nicht existiert. Aber wenn ich dich richtig verstehe, willst du diesen Autotext ja auch gar nicht. Der überschreibt nämlich den unter Title angegebenen Wunschtext. Falls doch lass deine Zeile wie sie ist, soweit sie funtioniert und ergänze nur die anderen Zeilen des folgenden Codes:

Sub Bildbeschriftung()

Dim picCaption As String, CaptionRange As Range, e As Long
picCaption = InputBox("Bitte eine Beschriftung eingeben", "Bildbeschriftung", "Beispieltext")
Selection.InsertCaption Label:="Abb.", Title:=": " & picCaption, Position:=wdCaptionPositionBelow ', ExcludeLabel:=False
Set CaptionRange = Selection.Paragraphs(1).Range
e = InStr(CaptionRange, ":") + 2
CaptionRange.SetRange CaptionRange.Start, CaptionRange.Start + e

With CaptionRange.Font
  .Bold = True
  .Italic = False
End With

End Sub

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.02.2023 11:01:02 Jonas
NotSolved
Blau Bildbeschriftung mit Hilfe von Makros formatieren (Word)
 11.02.2023 16:01:34 xlKing
*****
Solved