Consulting

Results 1 to 4 of 4

Thread: Settings for Tabstopps

  1. #1
    VBAX Newbie
    Joined
    Aug 2018
    Posts
    2
    Location

    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

  2. #2
    VBAX Master
    Joined
    Feb 2007
    Posts
    1,686
    Location
    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

    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
    John Wilson
    Microsoft PowerPoint MVP
    Amazing Free PowerPoint Tutorials
    http://www.pptalchemy.co.uk/powerpoi...tutorials.html

  3. #3
    VBAX Newbie
    Joined
    Aug 2018
    Posts
    2
    Location
    Hello John,

    it works but can I also use it for the SlideMaster?

    Thanks

  4. #4
    VBAX Master
    Joined
    Feb 2007
    Posts
    1,686
    Location
    Maybe

    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
    John Wilson
    Microsoft PowerPoint MVP
    Amazing Free PowerPoint Tutorials
    http://www.pptalchemy.co.uk/powerpoi...tutorials.html

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •