忍者ブログ

2024-03-29(Fri)

[PR]

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

2009-09-07(Mon)

うまくゆきません EXcel ボタン

おもしろいHPを見つけたので、試しにやってみましたがうまくゆきません。
どうしてなのでしょう、私なりに変えてみました。

トグルボタンのON/OFFで画像を変更する
http://excel.geo.jp/tipsctr/vbac_20.html

Excelのボタンに画像を表示し、ボタンをクッリクするといかにもスイッチを押したようになるとのこと。

うまくゆきません。
OFFで終わり、ONになりません。
----------------------------------
私なりに変えてみました。
----------------------------------

Option Explicit
Public cnt As Integer

Sub module_01()
    cnt = 0
End Sub

Private Sub ToggleButton1_Click()
   
    If cnt = 0 Then
        '表示位置を下に移動
        ToggleButton1.PicturePosition = fmPicturePositionBelowCenter
        'ONの画像
        ToggleButton1.Picture = LoadPicture("D:downExcelon.bmp")
        
        cnt = 1
    Else
        '表示位置を上に移動
        ToggleButton1.PicturePosition = fmPicturePositionAboveCenter
        'OFFの画像
        ToggleButton1.Picture = LoadPicture("D:downExcel\off.bmp")
        
        cnt = 0
    End If

End Sub

著作権等に抵触するようでしたら、お知らせください

拍手[0回]

PR

この記事にコメントする

Name
Title
Mail
URL
Comment
Pass
Pictgram
Vodafone絵文字 i-mode絵文字 Ezweb絵文字

この記事へのトラックバック

この記事にトラックバックする

ブログ内検索

最新コメント

[07/04 MichaelVank]
[09/04 森本 充治]
[04/30 Sam]
[04/28 通りすがり]
[10/28 木下由美]

最新トラックバック

プロフィール

HN:
H.kino
性別:
非公開
自己紹介:
60近くなるというのに、あまりにも知識なさすぎ。
もっと知識を吸収し、何かできたらと遅まきながら考えています。