Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Option Explicit Sub PressDown(MyButton As Shape) ' ' PressDown Macro ' With MyButton.ThreeD .BevelTopType = msoBevelSoftRound .BevelTopInset = 12 .BevelTopDepth = 4 End With DoEvents End Sub Sub PressUp(MyButton As Shape) ' ' PressUp Macro ' With MyButton.ThreeD .BevelTopType = msoBevelCircle .BevelTopInset = 6 .BevelTopDepth = 6 End With DoEvents End Sub Sub Test() Dim shpButton As Shape Set shpButton = ActiveSheet.Shapes(Application.Caller) PressDown shpButton MsgBox "Do some code stuff" PressUp shpButton End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Excel formula based on 2 different filters||4||42|
|Writing 0 to a range of cells in Excel||10||24|
|Adjusting a Button Control to register a different number||12||38|
|Excel to show a dynamic Picklist at level2||2||21|
Join the community of 500,000 technology professionals and ask your questions.