PowerPoint VBA - Display the Icons Task Pane on macOS

Question

As part of a customised VBA-based add-in, I've been trying to display the Icons task pane which idMSO is "IconInsertFromFile" (button type) but which doesn't work on macOS, although it runs on Windows: +It is frustrating since that function does exist within the Insert tab on macOS but isn't mentioned in Microsoft 2022 list of "idMSOs supported in PowerPoint for Mac" +Since that button is also within the Insert menu as "Icons...", I managed to trigger it but with an AppleScriptTask, not a simple macScript, so it is not practical as I would need to install that script in the library folder and trigger it from there

I've been thinking about going through all idMSOs, looking for "icon" text, but haven't find a way to do so :( Any thoughts please?

The Office Fluent UI Control ID Identifiers are available at github.com/OfficeDev/office-fluent-ui-command-identifiers in the form of Excel workbooks. I'm not clear what you're looking for, as the source for the Insert>Icons command is a Microsoft server, not a file on your computer, as the IconInsertFromFile name implies. Perhaps you could could post more information about what problem you're trying to solve, and we can give you help to accomplish that task. — John Korchok
– John Korchok, Commented Sep 9 at 23:41
Thank you @JohnKorchok Yes I saw that resource, that is where I identified the name IconInsertFromFile. I am looking to integrate that button into a customised ribbon on macOS, which is itself made of some personal VBA macros and default controls. I am open to call it within a macro, MacScript or within my XML (eg <control idMso="FontColorPicker"/>), but found no way of doing so yet, since IconInsertFromFile is not recognized on macOS. Lmk if it clarifies or if I should further explain what I tried so far! — Catius
– Catius, Commented Sep 11 at 16:48
Microsoft has not seen fit to add that command to Word for Mac (it's not available as a Ribbon customization in the Ribbon & Toolbar dialog, not can you add it by manual editing of the Ribbon), so you're stuck. The best I can suggest is that you use Help>Feedback>Make a suggestion to request its addition, but that can take a very long time. — John Korchok
– John Korchok, Commented Sep 11 at 23:57

Стас Стасович · Accepted Answer · 2025-09-14 19:53:43Z

Sub PrezentacjaMalarz3D()

    Dim ppt As Object
    Dim prezentacja As Object
    Dim slajd As Object
    
    ' Uruchomienie PowerPointa
    Set ppt = CreateObject("PowerPoint.Application")
    ppt.Visible = True
    Set prezentacja = ppt.Presentations.Add
    
    '--- Slajd 1: Tytuł ---
    Set slajd = prezentacja.Slides.Add(1, ppLayoutTitle)
    slajd.Shapes.Title.TextFrame.TextRange.Text = "Zawód: Malarz 3D"
    slajd.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Sztuka malowania w trzech wymiarach"
    slajd.FollowMasterBackground = False
    slajd.Background.Fill.ForeColor.RGB = RGB(200, 200, 255)
    slajd.Shapes.AddPicture "https://upload.wikimedia.org/wikipedia/commons/5/5c/3D_Street_Art.jpg", _
        MsoTriState.msoFalse, MsoTriState.msoTrue, 100, 200, 500, 300
    
    '--- Slajd 2: Kim jest malarz 3D? ---
    Set slajd = prezentacja.Slides.Add(2, ppLayoutText)
    slajd.Shapes.Title.TextFrame.TextRange.Text = "Kim jest malarz 3D?"
    slajd.Shapes(2).TextFrame.TextRange.Text = "• Artysta, który tworzy iluzje optyczne" & vbCrLf & _
                                               "• Łączy sztukę tradycyjną i perspektywę" & vbCrLf & _
                                               "• Maluje na ulicach, ścianach i płótnach"
    slajd.FollowMasterBackground = False
    slajd.Background.Fill.ForeColor.RGB = RGB(255, 230, 200)
    slajd.Shapes.AddPicture "https://upload.wikimedia.org/wikipedia/commons/1/1b/3D_Street_Art_in_Paris.jpg", _
        MsoTriState.msoFalse, MsoTriState.msoTrue, 350, 150, 400, 300
    
    '--- Slajd 3: Narzędzia pracy ---
    Set slajd = prezentacja.Slides.Add(3, ppLayoutText)
    slajd.Shapes.Title.TextFrame.TextRange.Text = "Narzędzia pracy"
    slajd.Shapes(2).TextFrame.TextRange.Text = "• Farby akrylowe i spray" & vbCrLf & _
                                               "• Pędzle i gąbki" & vbCrLf & _
                                               "• Projektor do szkiców" & vbCrLf & _
                                               "• Komputer i tablet graficzny"
    slajd.FollowMasterBackground = False
    slajd.Background.Fill.ForeColor.RGB = RGB(230, 255, 220)
    slajd.Shapes.AddPicture "https://upload.wikimedia.org/wikipedia/commons/7/77/Paint_brushes.jpg", _
        MsoTriState.msoFalse, MsoTriState.msoTrue, 350, 150, 400, 300
    
    '--- Slajd 4: Gdzie pracuje malarz 3D? ---
    Set slajd = prezentacja.Slides.Add(4, ppLayoutText)
    slajd.Shapes.Title.TextFrame.TextRange.Text = "Miejsca pracy"
    slajd.Shapes(2).TextFrame.TextRange.Text = "• Ulice i chodniki (street art)" & vbCrLf & _
                                               "• Galerie sztuki" & vbCrLf & _
                                               "• Wnętrza budynków" & vbCrLf & _
                                               "• Projekty reklamowe"
    slajd.FollowMasterBackground = False
    slajd.Background.Fill.ForeColor.RGB = RGB(220, 240, 255)
    slajd.Shapes.AddPicture "https://upload.wikimedia.org/wikipedia/commons/2/28/3D_Street_Art_Stuttgart.jpg", _
        MsoTriState.msoFalse, MsoTriState.msoTrue, 350, 150, 400, 300
    
    '--- Slajd 5: Podsumowanie ---
    Set slajd = prezentacja.Slides.Add(5, ppLayoutText)
    slajd.Shapes.Title.TextFrame.TextRange.Text = "Podsumowanie"
    slajd.Shapes(2).TextFrame.TextRange.Text = "Malarz 3D to artysta, który potrafi zmieniać zwykłe powierzchnie" & vbCrLf & _
                                               "w niesamowite iluzje optyczne." & vbCrLf & vbCrLf & _
                                               "Zawód wymaga kreatywności, cierpliwości i talentu."
    slajd.FollowMasterBackground = False
    slajd.Background.Fill.ForeColor.RGB = RGB(250, 220, 220)
    slajd.Shapes.AddPicture "https://upload.wikimedia.org/wikipedia/commons/9/9e/3D_Street_Art_Brussels.jpg", _
        MsoTriState.msoFalse, MsoTriState.msoTrue, 300, 150, 450, 300
    
    MsgBox "Prezentacja została utworzona!"

End Sub

As it’s currently written, your answer is unclear. Please edit to add additional details that will help others understand how this addresses the question asked. You can find more information on how to write good answers in the help center.
Nothing to do with the original question. Looks like spam to me!

Collectives™ on Stack Overflow

PowerPoint VBA - Display the Icons Task Pane on macOS

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related