| |
▼ama さん：
同様の質問をされる方へ...。
結構ヒットしました、FAQなんですねぇ..。ああ恥ずかしい(*_*;
次のようにして、うまくいきました。
＃ 検索にヒットするよう予想されるキーワードを列挙
＃ FaceID, アドイン, コマンドバー, ボタン, アイコン,
＃ オリジナル, カスタム, ユーザ定義
1. 例えばビットマップファイルをペイントで開きます
2. Ctrl+C等を押して、イメージをクリップボードにコピーします
3. 作成しているアドイン用ブックのシートにイメージをペーストします
このブックをアドイン化させるとペーストされたイメージなので、
"そのまま"アドインに包含されます(つまりは添付状態になる)
4. あとは、そのイメージを読み出して、作成コマンドバーのボタンに
ペーストする処理を書いておけばOK
※アドイン用ソースブックには、shtOptionというシートオブジェクトがあり、
そのシートに"Image1"が貼り付けてあるとします
Dim cbr As CommandBar
Set cbr = CommandBars.Add("NewBar")
Dim button As CommandBarButton
Set button = cbr.Controls.Add
With button
.Style = msoButtonIconAndCaption
.Caption = "Caption"
.OnAction = "Action"
shtOption.Shapes("Image1").Copy
.PasteFace
End With
これでOKですよね？問題あれば指摘してください > Jaka & All
ありがとうございましたJakaさん、皆さん
またなにかありましたらよろしくお願いいたします
|
|
ama
- 03/7/4(金) 10:14 -
