It depends on whether you are using the one from the Forms Toolbar or the one
from the Control Toobox. Check in VBA help by typing "Caption property" in
the search box and it will bring up a menu with two or three references that
will help you decide.

"Jay" wrote:

Hi all -

The following procedure works propertly, adding two toggle buttons to the
active sheet:

Sub addToggles()
Dim oleObj As OLEObject
Set oleObj = ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.ToggleButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=0.75, Top:=243, Width:=72, _
Height:=30.75)
Set oleObj = ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.ToggleButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=74.25, Top:=243, Width:=72, _
Height:=30.75)
End Sub

What is the syntax for changing the button 'captions' from "ToggleButton1"
to "Start Date" and "ToggleButton2" to "End Date" ?

Thie following 'caption' statement doesn't work seemingly because these
buttons are on the worksheet (not on a user form):
Activesheet.ToggleButton1.Caption = "Start Date".
--
Thanks for any advice,
Jay

Hi JLGWhiz -

Your suggestion led to excellent information and another link that was
useful, too. Search VBA's Online Help system for Using "ActiveX Controls on
Sheets". This provides links to additional fundamentals of working with
objects.

Your reminder to lean on VBA Help along with Greg's code sample opened the
door to a better understanding of objects.

-----
Thanks,
Jay


"JLGWhiz" wrote:

It depends on whether you are using the one from the Forms Toolbar or the one
from the Control Toobox. Check in VBA help by typing "Caption property" in
the search box and it will bring up a menu with two or three references that
will help you decide.

"Jay" wrote:

Hi all -

The following procedure works propertly, adding two toggle buttons to the
active sheet:

Sub addToggles()
Dim oleObj As OLEObject
Set oleObj = ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.ToggleButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=0.75, Top:=243, Width:=72, _
Height:=30.75)
Set oleObj = ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.ToggleButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=74.25, Top:=243, Width:=72, _
Height:=30.75)
End Sub

What is the syntax for changing the button 'captions' from "ToggleButton1"
to "Start Date" and "ToggleButton2" to "End Date" ?

Thie following 'caption' statement doesn't work seemingly because these
buttons are on the worksheet (not on a user form):
Activesheet.ToggleButton1.Caption = "Start Date".
--
Thanks for any advice,
Jay

Thanks for the feedback, Jay. I learned in the military that when all else
fails, read the instructions. I rely on the help files quite a bit. Only a
few times that I could not work out the answers. But when you are in a
hurry, don't hesitate to post here where there is a world of experience
available to you.

"Jay" wrote:

Hi JLGWhiz -

Your suggestion led to excellent information and another link that was
useful, too. Search VBA's Online Help system for Using "ActiveX Controls on
Sheets". This provides links to additional fundamentals of working with
objects.

Your reminder to lean on VBA Help along with Greg's code sample opened the
door to a better understanding of objects.

-----
Thanks,
Jay


"JLGWhiz" wrote:

It depends on whether you are using the one from the Forms Toolbar or the one
from the Control Toobox. Check in VBA help by typing "Caption property" in
the search box and it will bring up a menu with two or three references that
will help you decide.

"Jay" wrote:

Hi all -

The following procedure works propertly, adding two toggle buttons to the
active sheet:

Sub addToggles()
Dim oleObj As OLEObject
Set oleObj = ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.ToggleButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=0.75, Top:=243, Width:=72, _
Height:=30.75)
Set oleObj = ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.ToggleButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=74.25, Top:=243, Width:=72, _
Height:=30.75)
End Sub

What is the syntax for changing the button 'captions' from "ToggleButton1"
to "Start Date" and "ToggleButton2" to "End Date" ?

Thie following 'caption' statement doesn't work seemingly because these
buttons are on the worksheet (not on a user form):
Activesheet.ToggleButton1.Caption = "Start Date".
--
Thanks for any advice,
Jay