おじい～PC入門

JW-CAD　のアイソメを勉強し始めました。
今日の作品
片側にしか、高さ・奥行きを入れていないので底面は結ばれません。


-----------------------------------------
アイソメ実行

[0回]

おもしろい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回]

Excelでチェックボックス簡単に大きくできないので、

ボタンに画像を貼り付けそれらしくしました。

Clickでチェック表示　ダブルで消えます。

 

OFF



 

興味のある方は、連絡ください。
オンラインでお教えします。　
hkino@@samkino.sakura.ne.jp

@をひとつ除いてください

[0回]