Toggle button

Posted on 2014-10-28
Last Modified: 2014-10-28

I have two subs "Full" and "Small"

I have two buttons for these subs (they determine whether excel is in full screen mode or not)

I would like one button that defaulys on entry to the spreadsheet to "Small" then if that is clicked, changes to "Full"

This is to make the spreadsheet cleaner

Many thanks
Question by:Seamus2626
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
  • 2
LVL 24

Assisted Solution

by:Phillip Burton
Phillip Burton earned 250 total points
ID: 40408503
You have entered this under "Visual Basic Classic", yet you refer to a spreadsheet, which makes me believe you are talking about VBA.

Please clarify.

Author Comment

ID: 40408522
Well, the buttons are from the developer tab and activating VB code on pressing them, so its both excel and VB

LVL 24

Expert Comment

by:Phillip Burton
ID: 40408530
No, it's Excel and VBA. VB is a separate application - it's part of Visual Studio, or a 12 year old application,  It's very important to get that terminology right, otherwise people might think that you are trying to interact Visual Studio with Excel.

So, now I know what you are talking about, please find attacehd a sample workbook with that button.

The VBA is as follows:

Sub Button1_Click()
With ActiveSheet.Shapes("Button 1").TextFrame.Characters
    If .Text = "Small" Then
        .Text = "Full"
        .Text = "Small"
    End If
End With
End Sub

Open in new window

SharePoint Admin?

Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.


Expert Comment

by:Glen Richmond
ID: 40408559
Writting this freehand in this window so may need tweaks, but somthign like this called on Button click ..

sub ChangeButton()

  If MyButton.Cation="Small" then 
     'do somthign in code here to call the FULL methods.
     'do somthign in code here to call the SMALL methods.
 end if

End Sub

Open in new window


Author Comment

ID: 40408588
RE the correct terminology, i understand now

The toggling is perfect, however, i need the buttons to call the sub as well.

So in the uploaded file i am when "return to excel" is pressed i want sub "small" called, when "Full Screen" is pressed, i want "Full" called

Many thanks

Accepted Solution

Glen Richmond earned 250 total points
ID: 40408640
just call the subs as i have in my example when the Button click event occurs you call the caption change sub, this handles the call to Small() and Full() too.

Author Closing Comment

ID: 40408801
Thanks Guys!

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
After seeing numerous questions for Dynamic Data Validation I notice that most have used Visual Basic to solve the problem. This suggestion is purely formula based and can be used in multiple rows.
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…

622 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question