-
Settings for Tabstopps
Hello together,
I'm new in this Forum and I have one question concerning Tabstopps.
I have to adjust the Settings of Tabstopps .
My macro sets at one Point a different Page Setup what causes a proportional adjustment of the Tabstopps.
Like:
Before Tabstop = 1.25cm
After Tabstop = 1.04cm
I want to set the tabstop per macro again to 1.25cm.
Thanks for you help in advance
-
Not clear what you are asking
Default tabs or tabs added manually?
Version of office?
What code did you use?
Assuming you mean default tabs this might work
Code:
Sub tabss()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame.Ruler.TabStops.DefaultSpacing = cm2Points(1.25)
End If
Next
Next
End Sub
Function cm2Points(inVal As Single)
cm2Points = inVal * 28.346
End Function
-
Hello John,
it works but can I also use it for the SlideMaster?
Thanks
-
Maybe
Code:
Sub tabss()
Dim ocust As CustomLayout
Dim odes As Design
Dim oshp As Shape
For Each odes In ActivePresentation.Designs
For Each oshp In odes.SlideMaster.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame.Ruler.TabStops.DefaultSpacing = cm2Points(1.25)
End If
Next
For Each ocust In odes.SlideMaster.CustomLayouts
For Each oshp In ocust.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame.Ruler.TabStops.DefaultSpacing = cm2Points(1.25)
End If
Next
Next
Next
End Sub
Function cm2Points(inVal As Single)
cm2Points = inVal * 28.346
End Function