PowerPointでリボンをプログラムでカスタマイズする

Question

どのようにするのですか？

旧式のCommandBars.AddとControls.Addは廃止され、最初のものはまったく機能しません。

一方、SetCustomUIは存在しないようです。

This解決策は私にとって非常にうまくいきましたが、私はもうVisioを持っておらず、コードを見ることができません。誰かがリンクされたvsdからVBAコードを投稿することができればいいですね。ここで

がコールバック getContent

Option Explicit 

Private Sub dynamicMenu_getContent(control As IRibbonControl, ByRef content) 

    Dim RibbonXML As String 

    Stop 

    RibbonXML = "<menu xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">" 
    RibbonXML = RibbonXML + " <button id=""dynaButton"" label=""Button"" " 
    RibbonXML = RibbonXML + "  onAction=""OnAction"" imageMso=""FoxPro""/>" 
    RibbonXML = RibbonXML + " <menuSeparator id=""div2""/>" 
    RibbonXML = RibbonXML + "  <dynamicMenu id=""subMenu"" label=""Sub Menu"" getContent=""getContent"" />" 
    RibbonXML = RibbonXML + "</menu>" 

    content = RibbonXML 

End Sub 

Answer 1

ヴァレリーを経由しての試みで、あなたが代わりに失礼との否定であることのいくつかの敬意を示すならば、無料で自分の時間をあきらめる人から助けを得るために多くの可能性が高くなります寄稿者が助けます。さあ、それを一方の側に置いてみましょう。

ダイナミックUIを追加するために使用できるリボンベースのソリューションの1つは、新しいタブ、グループ、およびダイナミックメニューコントロールをPPTMプロジェクトのXMLのリボン定義（ハードコードされた部分）に追加し、そのメニューにそのgetContentコールバックを介して渡します。 getVisibleコールバックで定義した条件の下で、タブ/グループ/コントロールを表示/非表示することもできます。

Scroll down to "dynamicMenu"

これはあなたがする必要があるXMLである：あなたが役立ちます。このアプローチが、シンディの答えに含まれ、このページを実現するために、いくつかの読書を行う必要がありますので、これは単純な二、三行のコード例ではありません開始：

<menu xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
    <button id="dynaButton" label="Button" 
    onAction="OnAction" imageMso="FoxPro"/> 
    <toggleButton id="dynaToggleButton" label="Toggle Button" 
    onAction="OnToggleAction" image="logo.bmp"/> 
    <menuSeparator id="div2"/> 
    <dynamicMenu id="subMenu" label="Sub Menu" getContent="GetSubContent" /> 
</menu> 

次に、VBAコールバックのサブセットGetSubContentを使用してUIコードを注入する必要があります。