-
Notifications
You must be signed in to change notification settings - Fork 0
/
macro-code.bas
39 lines (30 loc) · 1.15 KB
/
macro-code.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Ecofy()
ActivePresentation.SlideMaster.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)
For Each sld In ActivePresentation.Slides
For Each sh In sld.Shapes
With sh
On Error Resume Next
' Shadows
.Shadow.Visible = False
' Fill
If .Fill.ForeColor.RGB <> RGB(255, 255, 255) Then
.Fill.ForeColor.RGB = RGB(255, 255, 255)
End If
' Line
If .Line.Visible Then
If .Line.ForeColor.RGB Then
.Line.ForeColor.RGB = RGB(255, 255, 255)
End If
End If
' Text
If .HasTextFrame Then
If .TextFrame.HasText Then
For x = 1 To .TextFrame.TextRange.Runs.Count
.TextFrame.TextRange.Runs(x).Font.Color.RGB = RGB(0, 0, 0)
Next
End If
End If
End With
Next
Next
End Sub