| |
画像の大きさは、ボタンサイズに応じて作ってください。
１、
フォーム上にImage1を作り画像をロードしておく、これがボタンになります。
尚、画像はいったんロードしておけば、フォーム上に記憶されます。
つまり、ロードされた画像サイズと量は、エクセルのファイルサイズに跳ね返ってきます。
フォームモジュール
Private Sub Image1_Click()
Image1.SpecialEffect = fmSpecialEffectSunken 'これがないとボタンがへこまない。
実行マクロ
Image1.SpecialEffect = fmSpecialEffectRaised 'これがないとボタンが戻らない。
End Sub
Private Sub UserForm_Initialize()
Image1.SpecialEffect = fmSpecialEffectRaised
End Sub
標準モジュール
Sub 実行マクロ()
MsgBox "イメージボタン選択"
End Sub
---------------------
２、
普通のコマンドボタンに画像をつける。
これは、画像を都度ロードするので画像が随時必要です。
Private Sub UserForm_Initialize()
If Dir(ThisWorkbook.Path & "\ロード用.bmp") <> "" Then
With CommandButton1
.Picture = LoadPicture(ThisWorkbook.Path & "\ロード用.bmp")
.PicturePosition = fmPicturePositionLeftCenter
End With
Else
MsgBox "同フォルダに画像、ロード用.bmpがありません。"
End If
End Sub
CommandButton1の画像を消す。
Private Sub CommandButton2_Click()
CommandButton1.Picture = Nothing
End Sub
|
|
![[未読]](./data/FAQ/image/read_icon.gif){kind=icon}
