When you added a new button did you rename it or leave it as the default
name (don't rename it).
Regards,
Peter T
"CAPTGNVR" <(E-Mail Removed)> wrote in message
news:F7042DEE-C35C-4173-A0FD-(E-Mail Removed)...
> D/Peter
>
> The following did nto work.
> With ActiveSheet.OLEObjects("alfa")
> .Visible = Not .Visible
> End With
>
> The following works in a new worksheet
> With ActiveSheet.OLEObjects("CommandButton1")
> .Visible = Not .Visible
> End With
>
> Then I go back to my actual worksheet which is about 1.6mb file and put a
> new commandbutton from the control toolbox and it does not work.
>
> As I mentioned I have unprotected the sheet.
>
> Tried so much and pls dont give up and help me as I am keen to know why if
> it can work in a new work sheet why it is not working in the work sheet
> which
> i am programming?
>
> brgds/captgnvr
>
>
>
>
> "Peter T" wrote:
>
>> Are your sure the button is named "alfa", I don't mean as seen in the
>> names
>> box left of input bar but in Properties. If the following works that's
>> confirm you have got your names mixed up.
>>
>> With ActiveSheet.OLEObjects("alfa")
>> .Visible = Not .Visible
>> End With
>>
>> Regards,
>> Peter T
>>
>>
>> "CAPTGNVR" <(E-Mail Removed)> wrote in message
>> news:62023439-2BB3-4F92-9016-(E-Mail Removed)...
>> > D/Peter
>> >
>> > sheets("sheet1").select
>> >
>> > With ActiveSheet.alfa
>> > .Visible = Not .Visible
>> > End With
>> >
>> >
>> >
>> >
>> > "Peter T" wrote:
>> >
>> >> Post the your code, I mean the actual code.
>> >>
>> >> Regards,
>> >> Peter T
>> >>
>> >> "CAPTGNVR" <(E-Mail Removed)> wrote in message
>> >> news:21AD6937-E3ED-4C54-BAD2-(E-Mail Removed)...
>> >> > D/Peter
>> >> >
>> >> > Yes this code worked in the new sheet.
>> >> >
>> >> > But I tried the same by placing a new command button and tried and
>> >> > the
>> >> > command button continues to be seen.
>> >> >
>> >> > Thnks for the folow up. Pls adv.
>> >> >
>> >> > brgds/captgnvr
>> >> >
>> >> > "Peter T" wrote:
>> >> >
>> >> >> In a new sheet add a button named CommandButton1 and run the
>> >> >> following
>> >> >> from
>> >> >> an ordinary module, obviously with the sheet active.
>> >> >>
>> >> >> With ActiveSheet.CommandButton1
>> >> >> .Visible = Not .Visible
>> >> >> End With
>> >> >>
>> >> >> For me this toggles visibility of the button in Excel-97, as
>> >> >> expected.
>> >> >>
>> >> >> Regards,
>> >> >> Peter
>> >> >>
>> >> >> PS, what does D/Pter mean
>> >> >>
>> >> >>
>> >> >> "CAPTGNVR" <(E-Mail Removed)> wrote in message
>> >> >> news:4F7287A7-87E3-44AE-B324-(E-Mail Removed)...
>> >> >> > D/Pter
>> >> >> >
>> >> >> > After your suggestion about the design mode checked it is not in
>> >> >> > design
>> >> >> > mode
>> >> >> > and also ensured that the sheet is not protected.
>> >> >> >
>> >> >> > The below line works
>> >> >> > Activesheet.alfa.caption= "bingo"
>> >> >> >
>> >> >> > The below line does not work
>> >> >> > Activesheet.alfa.Visible = False
>> >> >> >
>> >> >> > Using Excel 97.
>> >> >> >
>> >> >> > Why I require it to be visible is bcos it is a big command button
>> >> >> > and
>> >> >> > want
>> >> >> > to be visible only when export operations are going on. So I
>> >> >> > used
>> >> >> > this
>> >> >> > above
>> >> >> > code at the end of the procedure so that once the code is run
>> >> >> > they
>> >> >> > dont
>> >> >> > see
>> >> >> > this command button.
>> >> >> >
>> >> >> > Pls help, as I will be watching with curiosity as dont understand
>> >> >> > why
>> >> >> > it
>> >> >> > is
>> >> >> > not working.
>> >> >> >
>> >> >> > brgds/captgnvr
>> >> >> >
>> >> >> >
>> >> >> >
>> >> >> >
>> >> >> > "Peter T" wrote:
>> >> >> >
>> >> >> >> That works fine for me in Excel-97. Going into design mode might
>> >> >> >> make
>> >> >> >> it
>> >> >> >> visible until exiting
>> >> >> >>
>> >> >> >> Regards,
>> >> >> >> Peter T
>> >> >> >>
>> >> >> >> "CAPTGNVR" <(E-Mail Removed)> wrote in message
>> >> >> >> news:4A91FF82-456E-4202-A8F8-(E-Mail Removed)...
>> >> >> >> >
>> >> >> >> > Dear All
>> >> >> >> > The following code does not give any errors but the command
>> >> >> >> > button
>> >> >> >> > named
>> >> >> >> > as
>> >> >> >> > 'alfa' continues to be visible in excel-97; command button
>> >> >> >> > from
>> >> >> >> > control
>> >> >> >> > toolbox.
>> >> >> >> >
>> >> >> >> > Activesheet.alfa.Visible = False
>> >> >> >> >
>> >> >> >> > Pls advice.
>> >> >> >> >
>> >> >> >> > brgds/captgnvr
>> >> >> >>
>> >> >> >>
>> >> >> >>
>> >> >>
>> >> >>
>> >> >>
>> >>
>> >>
>> >>
>>
>>
>>
|