Ich muss Farbschema der Präsentation zu Office 2007-2010 obwohl VBA-Code ändern. Wie kann ich das machen?Powerpoint VBA - Farbschema ändern
Ich habe versucht, so etwas wie unten aber scheint nicht zu funktionieren.
ActivePresentation.ColorSchemes.Add
ActivePresentation.ColorSchemes(1).Colors(ppAccent1).RGB = RGB(0, 0, 1)
ActivePresentation.ColorSchemes(1).Colors(ppAccent1).RGB = RGB(0, 0, 2)
ändern Farbschemata in Powerpoint sollte wie folgt sein:
ActivePresentation.SlideMaster.Theme.ThemeColorScheme(msoThemeAccent1) = RGB(1, 2, 3)
Es gibt eine ganze Antwort hier:
Sub mkThemeCols()
With ActivePresentation.SlideMaster.Theme
.ThemeColorScheme(msoThemeAccent1) = RGB(255, 0, 0)
.ThemeColorScheme(msoThemeAccent2) = RGB(0, 255, 0)
.ThemeColorScheme(msoThemeAccent3) = RGB(0, 255, 255)
.ThemeColorScheme(msoThemeAccent4) = RGB(255, 255, 0)
.ThemeColorScheme(msoThemeAccent5) = RGB(23, 255, 10)
.ThemeColorScheme(msoThemeAccent6) = RGB(23, 255, 100)
.ThemeColorScheme(msoThemeDark1) = RGB(23, 0, 0)
.ThemeColorScheme(msoThemeDark2) = RGB(23, 23, 23)
.ThemeColorScheme.Save Environ("APPDATA") & "\Microsoft\Templates\Document Themes\Theme Colors\myNew Theme.xml"
End With
End Sub
Wenn die Designfarben exportiert wurde In eine * .xml * -Datei können Sie einfach die Presentati setzen (laden) auf SlideMaster dazu: 'ActivePresentation.SlideMaster.Theme.ThemeColorScheme.Load" C: \ Theme Colors \ Office 2007 - 2010.xml "' Ändern Sie den Pfad zum Speicherort der XML-Datei. – PatricK
Sie sollten in der Lage sein, die benutzerdefinierte XML-Farbdatei in '% USERPROFILE% \ Anwendungsdaten \ Roaming \ Microsoft \ Vorlagen \ Dokumentdesigns \ Themenfarben' zu finden. – PatricK
Die Frage wurde unten beantwortet, aber es ist erwähnenswert, dass ColorSchemes nur aus Gründen der Rückwärtskompatibilität mit PPT-Versionen vor 2007 vorhanden sind. Für PPT 2007 und später möchten Sie mit ColorThemes arbeiten. –