This is an old revision of the document!
Microsoft Office VBA
General VBA
Add-in in Developer VBA IDE (debug)
HKEY_CURRENT_USER\Software\Microsoft\Office\X\PowerPoint\Options > DWORD DebugAddins = 1
Colors in UserForms
PowerPoint VBA
Font
- Change font to Headings or Body font:
- {object}.Font.Name = "+" + FontType + "-" + FontLang
- FontType is "mj" or "mn" for Major (headings) or Minor (body) respectively.
- FontLang is "lt", "cs" or "ea" for Latin, Complex Scripts or East Asian
- For example to set the font to the theme's body text font for Latin text:
ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Font.Name = "+mn-lt"
ThemeColors
| Name | Value | Description |
|---|---|---|
| msoNotThemeColor | 0 | Specifies no theme color |
| msoThemeColorAccent1 | 5 | Specifies the Accent 1 theme color |
| msoThemeColorAccent2 | 6 | Specifies the Accent 2 theme color |
| msoThemeColorAccent3 | 7 | Specifies the Accent 3 theme color |
| msoThemeColorAccent4 | 8 | Specifies the Accent 4 theme color |
| msoThemeColorAccent5 | 9 | Specifies the Accent 5 theme color |
| msoThemeColorAccent6 | 10 | Specifies the Accent 6 theme color |
| msoThemeColorBackground1 | 14 | Specifies the Background 1 theme color |
| msoThemeColorBackground2 | 16 | Specifies the Background 2 theme color |
| msoThemeColorDark1 | 1 | Specifies the Dark 1 theme color |
| msoThemeColorDark2 | 3 | Specifies the Dark 2 theme color |
| msoThemeColorFollowedHyperlink | 12 | Specifies the theme color for a clicked hyperlink |
| msoThemeColorHyperlink | 11 | Specifies the theme color for a hyperlink |
| msoThemeColorLight1 | 2 | Specifies the Light 1 theme color |
| msoThemeColorLight2 | 4 | Specifies the Light 2 theme color |
| msoThemeColorMixed | -2 | Specifies a mixed color theme |
| msoThemeColorText1 | 13 | Specifies the Text 1 theme color |
| msoThemeColorText2 | 15 | Specifies the Text 2 theme color |
PasteSpecial
- PasteSpecial values:
| Paste Type | Enum | VBA Code |
|---|---|---|
| Bitmap | 1 | ppPasteBitmap |
| Default | 0 | ppPasteDefault |
| Enhanced Metafile | 2 | ppPasteEnhancedMetafile |
| GIF | 4 | ppPasteGIF |
| HTML | 8 | ppPasteHTML |
| JPG | 5 | ppPasteJPG |
| Metafile Picture | 3 | ppPasteMetafilePicture |
| OLE Object | 10 | ppPasteOLEObject |
| PNG | 6 | ppPastePNG |
| RTF | 9 | ppPasteRTF |
| Shape | 11 | ppPasteShape |
| Text | 7 | ppPasteText |
Sub EnhancedMetafile_Paste() 'PURPOSE:Paste Contents as PasteSpecial Enhanced Metafile 'SOURCE: www.TheSpreadsheetGuru.com Dim Sld As Slide 'Ensure focus is on slide Application.ActiveWindow.Panes(2).Activate Set Sld = Application.ActiveWindow.View.Slide On Error GoTo NoCopy Sld.Shapes.PasteSpecial (ppPasteEnhancedMetafile) On Error GoTo 0 Exit Sub NoCopy: MsgBox "There was nothing copied to paste!" End Sub