View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Norman Jones Norman Jones is offline
external usenet poster
 
Posts: 5,302
Default Help with Command Button

Hi W,

How to define the properties for a command button so that it works in a
worksheet?


Manually?
In design mode, right-click the CommandButton and select
'Properties' from the dropdown menu.

With VBA?

Try, something like:

'=============
Private Sub Worksheet_Activate()
With Me.CommandButton1
.BackColor = &H80000012
.ForeColor = &HFF&
End With
End Sub
'<<=============

This is worksheet event code and should be pasted into
the worksheets's code module (not a standard module
and not the workbook's ThisWorkbook module):

Right-click the worksheet's tab
Select 'View Code' from the menu and paste the code.
Alt-F11 to return to Excel.

Alternatively, perhaps, in a standard module:
'=============
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
Dim oleObj As OLEObject

Set WB = Workbooks("MyBook.xls")
Set SH = WB.Sheets("Sheet1")
Set oleObj = SH.OLEObjects("CommandButton1")
With oleObj.Object
.ForeColor = &H80FFFF
.BackColor = &HFF&
End With
End Sub
'<<=============


---
Regards,
Norman