On sheet 3 of my workbook I have created a button (button 62) and a text
box (textbox 63).
What I want to do is use the button to toggle the text box on and off.
By that I want to be able to show the box or hide the box.
I have tried to copy code from the MS Visual Basic Help but it did not
work, basically because I have no idea what I am doing.
Can someone lease help?

Orf Bartrop

Under my Excel - 2000
I don't think you can hide a text box
But I hope Im wrong it would be a good idea

Steve

On Wed, 09 Aug 2006 05:45:55 +0100, Orf Bartrop <(E-Mail Removed)>
wrote:

> On sheet 3 of my workbook I have created a button (button 62) and a text
> box (textbox 63).
> What I want to do is use the button to toggle the text box on and off.
> By that I want to be able to show the box or hide the box.
> I have tried to copy code from the MS Visual Basic Help but it did not
> work, basically because I have no idea what I am doing.
> Can someone lease help?
>
> Orf Bartrop

Well, if I can't hide a text box how else could I create some
instructions that can be turned on or off?

Orf

SteveW wrote:

> Under my Excel - 2000
> I don't think you can hide a text box
> But I hope Im wrong it would be a good idea
>
>> On sheet 3 of my workbook I have created a button (button 62) and a
>> text box (textbox 63).
>> What I want to do is use the button to toggle the text box on and
>> off. By that I want to be able to show the box or hide the box.
>> I have tried to copy code from the MS Visual Basic Help but it did
>> not work, basically because I have no idea what I am doing.
>> Can someone lease help?
>>
>> Orf Bartrop
>

What I have been trying with no luck is:

Private Sub ToggleButton62_Click()
If ToggleButton62.Value = True Then
TextBox63.HideSelection = False
ToggleButton62.Caption = "Selection Visible"
Else
TextBox63.HideSelection = True
ToggleButton62.Caption = "Selection Hidden"
End If
End Sub

It stops on the If line.

Orf
Orf Bartrop wrote:

> On sheet 3 of my workbook I have created a button (button 62) and a
> text box (textbox 63).
> What I want to do is use the button to toggle the text box on and off.
> By that I want to be able to show the box or hide the box.
> I have tried to copy code from the MS Visual Basic Help but it did not
> work, basically because I have no idea what I am doing.
> Can someone lease help?
>
> Orf Bartrop

Try Martin Green's page at:
http://www.fontstuff.com/ebooks/eboo...ontent.htm#msg

Download his sample file :
RecordingExcelMacros.zip [19 KB]

On each sheet in the sample file, he demos how it's done
using Form toolbar buttons: "Show/Hide Explanation"
Look for his sub in VBE: Sub ShowHideTextBox
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Orf Bartrop" wrote:
> Well, if I can't hide a text box how else could I create some
> instructions that can be turned on or off?
>
> Orf
>
> SteveW wrote:
>
> > Under my Excel - 2000
> > I don't think you can hide a text box
> > But I hope Im wrong it would be a good idea
> >
> >> On sheet 3 of my workbook I have created a button (button 62) and a
> >> text box (textbox 63).
> >> What I want to do is use the button to toggle the text box on and
> >> off. By that I want to be able to show the box or hide the box.
> >> I have tried to copy code from the MS Visual Basic Help but it did
> >> not work, basically because I have no idea what I am doing.
> >> Can someone lease help?
> >>
> >> Orf Bartrop
> >
>

Try this with a button created from the View > Toolbars > Forms menu, right
click and assign this macro to the button,

Sub ToggleTextBox()
If ActiveSheet.Shapes("Text Box 63").Visible = True Then
ActiveSheet.Shapes("Text Box 63").Visible = False
Else
ActiveSheet.Shapes("Text Box 63").Visible = True
End If
End Sub

Regards,
Alan.
"Orf Bartrop" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> What I have been trying with no luck is:
>
> Private Sub ToggleButton62_Click()
> If ToggleButton62.Value = True Then
> TextBox63.HideSelection = False
> ToggleButton62.Caption = "Selection Visible"
> Else
> TextBox63.HideSelection = True
> ToggleButton62.Caption = "Selection Hidden"
> End If
> End Sub
>
> It stops on the If line.
>
> Orf
> Orf Bartrop wrote:
>
>> On sheet 3 of my workbook I have created a button (button 62) and a text
>> box (textbox 63).
>> What I want to do is use the button to toggle the text box on and off. By
>> that I want to be able to show the box or hide the box.
>> I have tried to copy code from the MS Visual Basic Help but it did not
>> work, basically because I have no idea what I am doing.
>> Can someone lease help?
>>
>> Orf Bartrop

Thanks to one and all for your help. I used your code Alan and it did
the job - thanks.
Orf

Alan wrote:

>Try this with a button created from the View > Toolbars > Forms menu, right
>click and assign this macro to the button,
>
>Sub ToggleTextBox()
>If ActiveSheet.Shapes("Text Box 63").Visible = True Then
>ActiveSheet.Shapes("Text Box 63").Visible = False
>Else
>ActiveSheet.Shapes("Text Box 63").Visible = True
>End If
>End Sub
>
>Regards,
>Alan.
>"Orf Bartrop" <(E-Mail Removed)> wrote in message
>news:(E-Mail Removed)...
>
>
>>What I have been trying with no luck is:
>>
>>Private Sub ToggleButton62_Click()
>> If ToggleButton62.Value = True Then
>> TextBox63.HideSelection = False
>> ToggleButton62.Caption = "Selection Visible"
>> Else
>> TextBox63.HideSelection = True
>> ToggleButton62.Caption = "Selection Hidden"
>> End If
>>End Sub
>>
>>It stops on the If line.
>>
>>Orf
>>Orf Bartrop wrote:
>>
>>
>>
>>>On sheet 3 of my workbook I have created a button (button 62) and a text
>>>box (textbox 63).
>>>What I want to do is use the button to toggle the text box on and off. By
>>>that I want to be able to show the box or hide the box.
>>>I have tried to copy code from the MS Visual Basic Help but it did not
>>>work, basically because I have no idea what I am doing.
>>>Can someone lease help?
>>>
>>>Orf Bartrop
>>>
>>>
>
>
>
>