Consulting

Results 1 to 6 of 6

Thread: Change colour of a custem shape on all slides

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #1

    Change colour of a custem shape on all slides

    Hi there.

    I have a problem with a custom shape that I want to change color on all slides.
    I found this code in another post and its working on the standart shape. But if a change the shape, I cant finde the name so I can get it working.
    What is the way to change the code msoShapeIsoscelesTriangle to the name of the shape insted?


    Sub addColorTriangle_1()
        Dim oPres As Presentation
        Dim oShape As Shape
        Dim oSlide As Slide
        Dim j As Long
        Dim r As Long
        Dim g As Long
        Dim b As Long
    Set oPres = ActivePresentation
    For Each oSlide In oPres.Slides
        For Each oShape In oSlide.Shapes
            If oShape.Type = msoAutoShape Then
                If oShape.AutoShapeType = msoShapeIsoscelesTriangle Then
                    oShape.Fill.ForeColor.RGB = RGB(50, 50, 50)
                End If
            End If
        Next
        Next
    End Sub
    Attached Files Attached Files
    Last edited by Aussiebear; 03-31-2024 at 03:50 PM. Reason: Added code tags to supplied code

Posting Permissions

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