Change colour of a custem shape on all slides

[mads husted]

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

[arnelgp]

if you are looking for a triangle, check the shape's Node count (triangles have 4 Node.Count)


Sub addColorhexagon_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.Nodes.Count = 4 Then
oShape.Fill.ForeColor.RGB = RGB(50, 50, 50)
End If
Next
Exit For
Next
End Sub

[mads husted]

Hi there.

I like the second code, because it work in all slides, but it need to call the name of the osld.Shapes("GoogleShape1") like in the first code, so how to rewrite it?



Sub changedcolor()
Dim hshp As Shape
Dim osld As Slide
Dim j As Long
Dim r As Long
Dim g As Long
Dim b As Long
Set osld = ActivePresentation.Slides(1)
Set hshp = osld.Shapes("GoogleShape1")
If hshp.Fill.ForeColor.RGB = RGB(255, 255, 255) Then
hshp.Fill.ForeColor.RGB = RGB(50, 50, 50)
hshp.Fill.Solid
End If
End Sub

Sub addColorhexagon_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

[arnelgp]

Sub changedcolor()
Dim hshp As Shape
Dim osld As Slide
Dim j As Long
Dim r As Long
Dim g As Long
Dim b As Long
Set osld = ActivePresentation.Slides(1)
For Each hshp In osld.Shapes
With hshp
If .Name Like "Google*" Then
.Fill.ForeColor.RGB = RGB(50, 50, 50)
.Fill.Solid
End If
End With
Next
End Sub

[mads husted]

Hi arnelgp, thanks its easy to call the shape with thise, but it only work for slide 1, not all of the slides. How to make it do that


Sub changedcolor()
Dim hshp As Shape
Dim osld As Slide
Dim j As Long
Dim r As Long
Dim g As Long
Dim b As Long
Set osld = ActivePresentation.Slides(1)
For Each hshp In osld.Shapes
With hshp
If .Name Like "Google*" Then
.Fill.ForeColor.RGB = RGB(50, 50, 50)
.Fill.Solid
End If
End With
Next
End Sub

[jdelano]

You just have to loop through the slides in the presentation, like:



Sub changedcolor()
Dim hshp As Shape
Dim osld As Slide
For Each osld In ActivePresentation.Slides
For Each hshp In osld.Shapes
With hshp
If .Name Like "Google*" Then
.Fill.ForeColor.RGB = RGB(50, 50, 50)
.Fill.Solid
End If
End With
Next hshp
Next osld
End Sub


edit: code formatting