VBA PowerPoint
04.12.2017 10:27:11
Rene
vielleicht ist das hier die falsche Seite, aber mir wurde bisher immer gut geholfen :)
Ich versuche in einer PPT die Hyperlinks farbig zu markieren.
Bisher habe ich es nicht geschafft diese direkt anzusprechen,
sondern versuche über die Suchfunktion diese zu finden und zu markieren.
Leider ist es dann nur möglich diese fett oder kursiv zu gestalten.
Kann mir wer helfen?
Sub hyperlinkMarkieren()
Dim sld As Slide
Dim shp As Shape
Dim txtRng As TextRange
Dim foundText As TextRange
For Each sld In Application.ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
Set txtRng = shp.TextFrame.TextRange
Set foundText = txtRng.Find(FindWhat:="http")
Do While Not (foundText Is Nothing)
With foundText
.Font.Bold = True
Set foundText = _
txtRng.Find(FindWhat:="http", _
After:=.Start + .Length - 1)
End With
Loop
End If
Next
Next
End Sub
VG
René