Consulting

Results 1 to 2 of 2

Thread: SImple Code for Changing Line Weight

  1. #1
    VBAX Newbie
    Joined
    Mar 2017
    Posts
    1
    Location

    SImple Code for Changing Line Weight

    I'm new to VBA - as in BRAND new. i've tried to research what I need to do and tried various ideas but I just can't seem to get there. What I would like to do is change the line weight for all lines in all line graphs in all slides in my Powerpoint presentation. They are all currently set at a weight of 2 and I would like them to be 1.5. Can someone help me?

  2. #2
    VBAX Master
    Joined
    Feb 2007
    Posts
    1,633
    Location
    Charts are poorly supported in early versions. Assuming you have a recent version try this

    Sub fixChart()
    Dim osld As Slide
    Dim oshp As Shape
    Dim ocht As Chart
    Dim ser As Series
    Dim L As Long
    For Each osld In ActivePresentation.Slides
    For Each oshp In osld.Shapes
    If oshp.HasChart Then
    Set ocht = oshp.Chart
    If ocht.ChartType = xlLine Then
    For L = 1 To ocht.SeriesCollection.Count
    Set ser = ocht.SeriesCollection(L)
    ser.Format.Line.Weight = 1.5
    Next L
    End If
    End If
    Next oshp
    Next osld
    End Sub
    John Wilson
    Microsoft PowerPoint MVP
    Amazing Free PowerPoint Tutorials
    http://www.pptalchemy.co.uk/powerpoi...tutorials.html

Tags for this Thread

Posting Permissions

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