【VBA】 무심코 확실히 누르고 싶어지는 버튼을 만드는 방법

안녕하세요.
일요일은, 때문에가 되는지 어떨지 모르는, 그런 블로그를 쓸까라고 생각하고 있습니다.
쓸데없는 내용입니다. 용서해 주세요.

이번에는 무심코 확실히 누르고 싶어지는 버튼을 만드는 방법입니다!

Excel 매크로에서는 삽입한 좋아하는 도형에 매크로를 등록할 수 있습니다만, 보다 누르고 싶어지고, 그리고 버튼을 누른 느낌이 나오는 버튼을 원해서 만들었습니다.
원하는 처리와 함께 사용해보십시오.

버튼 만들기 및 가공

먼저 적절한 타원형 다이어그램을 삽입하고 해당 이름을 btnStart로 지정합니다.


아래의 매크로로 그림의 설정을 실시합니다.

Sub btnStartSet() 'ボタンの作成
    Dim btnSheet As Worksheet
    Set btnSheet = ActiveSheet
    btnSheet.Shapes("btnStart").Select
'形、サイズ、名前
    btnSheet.Shapes("btnStart").Height = 50.2
    btnSheet.Shapes("btnStart").Width = 66.3
'塗りつぶし
    btnSheet.Shapes("btnStart").Fill.ForeColor.RGB = RGB(255, 0, 0) '塗りつぶしの色
'枠線
    Selection.ShapeRange.Line.Visible = msoFalse
'3D
    btnSheet.Shapes("btnStart").ThreeD.RotationY = -35.1560166667 '図形のY軸周りの回転角度
    btnSheet.Shapes("btnStart").ThreeD.FieldOfView = 45 '3-D図形遠近感
    btnSheet.Shapes("btnStart").ThreeD.BevelTopType = msoBevelArtDeco '面取り設定
    btnSheet.Shapes("btnStart").ThreeD.BevelTopInset = 10
    btnSheet.Shapes("btnStart").ThreeD.BevelTopDepth = 6
End Sub

이것입니다.

누르면 무언가가 일어날 것 같은 버튼입니다!
「오… 누르고 싶다…」

버튼을 누른 후 가공

만든 버튼에 누른 느낌이 나도록 아래의 매크로를 등록하여 실행합니다.

Sub btnStartClick() 'ボタンを押したあとの加工
    Dim btnSheet As Worksheet
    Set btnSheet = ActiveSheet

    btnSheet.Shapes("btnStart").Select

    btnSheet.Shapes("btnStart").ThreeD.BevelTopType = msoBevelSlope '面取り設定
    btnSheet.Shapes("btnStart").ThreeD.BevelTopInset = 5.5 '3D加工の幅
    btnSheet.Shapes("btnStart").ThreeD.BevelTopDepth = 6 '3D加工の高さ
End Sub

누르면

이렇게 됩니다.
「페코가 되었다!!」

누르기 전 상태로 재설정

아래의 매크로를 리셋 버튼에 등록하여 리셋시킵니다.

Sub btnStartEnd() 'ボタンをリセット加工
    Dim btnSheet As Worksheet
    Set btnSheet = ActiveSheet

    btnSheet.Shapes("btnStart").Select

    btnSheet.Shapes("btnStart").ThreeD.BevelTopType = msoBevelArtDeco '面取り設定
    btnSheet.Shapes("btnStart").ThreeD.BevelTopInset = 10 '3D加工の幅
    btnSheet.Shapes("btnStart").ThreeD.BevelTopDepth = 6 '3D加工の高さ
End Sub

↓ 재설정

그건 그렇고

삽입＞3D모델＞「버튼」으로 검색에 그것 같은 것도 있는 것 같습니다～
처음 보았습니다!

덤

누르지 말라고 말하면 누르고 싶어지지요!