1

はじめまして、

VisualStudio2010(VB.NET FrameWork4.0)MicrosoftOffice2007の組み合わせでExcelアドインを作成しています。

リボンコントロール(Microsoft.Office.Tools.Ribbon.RibbonGroup)に対して、を不特定の数のボタン(Microsoft.Office.Tools.Ribbon.RibbonButton)を動的に追加して必要に応じて消去したいのですが上手くいきません。

http://dobon.net/vb/dotnet/control/buttonarray.html
上記サイトを参考にしてみたのですがMSNによるとRibbonButtonはクラスではなくインターフェースになっておりNewが出来ませんでした。

Ribbon1.Desinger.vbを開いてみると、

Friend WithEvents Button2 As Microsoft.Office.Tools.Ribbon.RibbonButton

で定義をして

Me.Group1.Items.Add(Me.Button2)

でリボンのグループに追加しているように見えました。

そこでリボン上に配置したボタンのイベントに

Dim button03 As Microsoft.Office.Tools.Ribbon.RibbonButton
button03 = Me.Factory.CreateRibbonButton
button03.Label = "リ・ボーン"
Me.Group1.Items.Add(button03)

と書いた所、Item.Addの所で「コレクションは読み取り専用です。」とエラーが出てしまいます。

自分の書いたサンプルはそもそも動的に不特定の数のボタンを追加する仕様ではありませんがまずは1個でも追加できないかと思い書いてみたのですが果たせませんでした。

どなたかご存知の方おられましたらお助けいただけますでしょうか?

よろしくお願いします。

1 件の回答 1

1

VSTOのリボンには読み取り専用になるプロパティがいくつか存在します。Items自体は記載されていませんが、GroupsTabsなどの他のコレクションプロパティが指定されているので同様の仕様なのだと思われます。

なのでボタンイベントに応じて項目を増減させたい場合、ボタンの追加は諦めてリンク先に記載のあるDynamicプロパティをTrueに設定したRibbonMenuで妥協するしかないと思われます。

またボタンの追加タイミングが起動時だけでよいのであればRibbon1のコンストラクターではまだ読み取り専用となっていないので変更が可能です。

' 以下のコードをRibbon1.designer.vbからRibbon1.vbに移動する
Public Sub New()

    MyBase.New(Globals.Factory.GetRibbonFactory())
    InitializeComponent()

    ' TODO:メニューの変更を追加する

End Sub
1
  • コメントありがとうございます。動的な項目追加に関して制限がある旨理解いたしました。ボタンの追加に関しては、アドインで生成したフォームがエクセルのワークシートを選択した結果などで非アクティブになった場合Windows10ではタスクバーでは非アクティブなフォームの存在がわかりづらい為、その通知のためにウィンドウのアイコンイメージを表示したボタンを使おうと考えておりました。 その為生成のタイミングはコンストラクターでは足りないのですがとりあえず難しいということが分かり大変たすかりました。 ありがとうございます。
    – Naoki
    Commented 2016年2月17日 7:06

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。