2017-02-22 6 views
1

プレゼンテーションのカラースキームをVBAコードを使用してOffice 2007-2010に変更する必要があります。どうやってやるの?パワーポイントVBA - カラースキームを変更

enter image description here

私は以下のようなものを試してみましたが、動作するようには思えません。 PowerPointでカラースキームを変更する

ActivePresentation.ColorSchemes.Add 
ActivePresentation.ColorSchemes(1).Colors(ppAccent1).RGB = RGB(0, 0, 1) 
ActivePresentation.ColorSchemes(1).Colors(ppAccent1).RGB = RGB(0, 0, 2) 
+0

ActivePresentation.SlideMaster.Theme.ThemeColorScheme(msoThemeAccent1) = RGB(1, 2, 3)

ここで全体の答えがあります* .xml *ファイルには、現在の設定(ロード)だけで'ActivePresentation.SlideMaster.Theme.ThemeColorScheme.Load" C:\ Theme Colors \ Office 2007 - 2010.xml "' xmlファイルを保存する場所にパスを変更します。 – PatricK

+0

カスタムカラーXMLファイルは、%USERPROFILE%¥AppData¥Roaming¥Microsoft¥Templates¥Document Themes¥Theme Colors'にあります。 – PatricK

+1

質問には以下のような回答がありますが、ColorSchemesは2007年以前のPPTバージョンとの下位互換性のためにのみ存在します.PPT 2007以降では、ColorThemesを使用したいと思っています。 –

答えて

0

は次のようにする必要があります:テーマの色をエクスポートした場合

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_powerpoint-mso_winother/change-color-theme-using-vba-in-powerpoint/0efe38ad-36cb-4df7-b6e6-ed389c364f53

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 
関連する問題