Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub atest()
For Each sl In ActivePresentation.Slides
For Each sh In sl.Shapes
If sh.Type = msoEmbeddedOLEObject Then
i = 1
For Each s In sh.OLEFormat.Object.SeriesCollection
Select Case i
Case 1
s.Interior.Color = RGB(0, 34, 76)
Case 2
s.Interior.Color = RGB(174, 188, 158)
Case 3
s.Interior.Color = RGB(111, 150, 201)
End Select
i = i + 1
Next
End If
Next
Next
End Sub
Sub atest()
Dim sl As Slide, sh As Shape, ch As Chart, s As Series
For Each sl In ActivePresentation.Slides
For Each sh In sl.Shapes
If sh.Type = msoEmbeddedOLEObject Then
i = 1
Set ch = sh.OLEFormat.Object
Select Case ch.ChartType
Case xl3DPie
Case xl3DBarClustered
For Each s In ch.SeriesCollection
Select Case i
Case 1
s.Interior.Color = RGB(0, 34, 76)
Case 2
s.Interior.Color = RGB(174, 188, 158)
Case 3
s.Interior.Color = RGB(111, 150, 201)
End Select
i = i + 1
Next
Case xlLineMarkers
End Select
End If
Next
Next
Set ch = Nothing
End Sub
Sub atest()
Dim sl As Slide, sh As Shape, ch As Chart, s As Series
For Each sl In ActivePresentation.Slides
For Each sh In sl.Shapes
If sh.Type = msoEmbeddedOLEObject Then
i = 1
Set ch = sh.OLEFormat.Object
Select Case ch.ChartType
Case xl3DPie
For Each s In ch.SeriesCollection
i = 1
For Each p In s.Points
Select Case i
Case 1
p.Interior.Color = RGB(0, 34, 76)
Case 2
p.Interior.Color = RGB(174, 188, 158)
Case 3
p.Interior.Color = RGB(111, 150, 201)
End Select
i = i + 1
Next
Next
Case xl3DBarClustered
For Each s In ch.SeriesCollection
Select Case i
Case 1
s.Interior.Color = RGB(0, 34, 76)
Case 2
s.Interior.Color = RGB(174, 188, 158)
Case 3
s.Interior.Color = RGB(111, 150, 201)
End Select
i = i + 1
Next
Case xlLineMarkers
End If
Next
Next
Set ch = Nothing
End Sub
[a1].Interior.Color = 196
Msgbox [A1].Interior.Color
ActiveWorkbook.Colors(30) = RGB(196, 0, 0)
[a1].Interior.Color = 196