Command Bars - How To Test If Exist?
Oct 30, 2009Occasionally, I lose my "Custom Menu". Usually while trying out different things with macros.
View 2 RepliesOccasionally, I lose my "Custom Menu". Usually while trying out different things with macros.
View 2 RepliesIn the code below using msoBarTop places the menubar at the top but it seems to just place it in a new row at the right of all menus.
How or can I dock the menubar next to the last menubar?
FYI This is cross posted on the VB Forums at [URL].....
I know that you can use the below code to add buttons to 2 of Excel's menu systems,
Code:
Application.CommandBars("Worksheet Menu Bar").Controls.Add
Application.CommandBars("Cell").Controls.Add
And this should add a command bar control of whatever type specified to either the Add-Ins tab of the ribbon or the right-click menu when clicking on a range of cells.
However, I would like to be able to add some command bar controls to the right-click menu when you click on a group of columns. Is this possible?
I have opened an Excel file (map1.xls) and changed some little things in that file.
after that I open a new Excel file with some VBA code in it.
In ThisWorkbook I have this ...
I have the code below. But When I run it, the line marked * throws up an error.
I do have custom built toolbars in my spreadsheet. It should delete them all.
I am using Excel 2003.
Sub DelCommandBarsCustom()
'Del all command bars of specific criteria
For Each objCommandBar In Application.CommandBars
If objCommandBar.BuiltIn Then
* objCommandBar.Delete
End If
Next objCommandBar
End Sub
In excel 2007, when I do workbook_Activate I want to hide all of the command bars. in 2003 vesion I used
.CommandBars("Worksheet Menu Bar").Enabled = False
But it is not working for me on 2007.
I am using following command to check if a command button with 'Email This Page' written on it Exists in active worksheet or not. It always gives not present.
Dim s As String
On Error Resume Next
s = Application. CommandBars(1).Controls("Email This Page").Caption
If Err.Number = 0 Then
MsgBox "It exists"
Else
MsgBox "Not here"
End If
I have an Excel 2003 program that contains macros. One of the macros hides certain command bars and disables the worksheet menu bar. On close the opposite is true. The problem is, if a user uses the disable macros when opening then the worksheet menu bar and other command bars are still available. I would like to hide all of the data sheets and display another sheet that would normally be hidden displaying a message that the macros have to be enabled for the program to work correctly if disable macros is chosen. When the enable macros are used I would like the Error page to be hidden.
View 6 Replies View RelatedI am trying to derive the EMI for a Loan Amount and also chart a PIE graph for the same..
Instead of Manually feeding the values such as :
Variable 1 : Loan Amount : Min : Rs 50,000/- Max :Rs 5000000/-
Each Spin (1 Unit) -Rs 25000/-
Variable 2 : Interest Rate : Min : 5% Max : 30%
Each Spin (1 Unit) -0.25%
Variable 3 : Tenure/Duration : Min : 6 months Max : 30 years
Each Spin (1 Unit) - 6 months
I want to have a Scroll-Bar where the values can change Automatically but am not aware of using the same...
Can someone please help me with a small attachment with the above variables attached to it..The values drawn should be displayed as well above the Scroll-Bar and maybe can make the Min and Max more dynamic by storing it somewhere in the Sheet..
I am looking for Non-VBA solution to do the same..
In the menu via TOOLS-->OPTIONS-->VIEW I am trying to remove the scroll bars from just one worksheet but when unticked, this option affects all of the worksheets in my workbook. Is there a way to just nail this selection down to one sheet via properties?
View 2 Replies View RelatedI am trying to determine Long Term Gain (LTG,) Long Term Loss (LTL,) Short Term Gain (STG,) Short term Loss (STL,) or No Loss nor Gain (NGL)testing two cells (A1 and B1)and setting a third cell (C1) to the text LTG, LTL, STG, STL, or NGL depending on the results of testing cells A1 and B1.
A1 represent a number of years and B1 represent gains or losses (negative)in dolars.
The way I see the logic is as follows:
If cell A1 or cell B1 are either one of them equal to 0, then it is neither a Gain nor a Loss (NGL.)
If cell A1 is greater than or equal to 1, then it is Long Term; else, if A1 is greater than 0 and less than 1, then it is Short Term.
On the other hand, if cell B1 is greater than 0, then it is a Gain; if B1 is less than 0 (a negative number,) then, it is a Loss.
I need to find (if it is posible in Excel) one formula to test the two cells for posible outcomes:
If A1 = 0 then C1 = NGL
If B1 = 0 then C1 = NGL
If A1 >= 1 and B1 > 0 the C1 = LTG.
If A1 >= 1 and B1 < 0 the C1 = LTL.
If A1 < 1 and B1 > 0 then C1 = STG
If A1 < 1 and B1 < 0 then C1 = STL
Is it possible that when you press a command button, that the first thing it does is to execute the code assigned to another command button (IE in another sub).
View 9 Replies View RelatedI am playing around with the Forfiles command (being called from Excel via Shell)..
I can't for the life of me get it apply a second command (such as getting the file size of each file)..
For example:
VB:
Private Sub CommandButton1_Click()
Dim Z
Z = Split(CreateObject("wscript.shell").exec("cmd /c forfiles /P C:UsersapoDesktopTextFiles /S /M *.* /d
[Code]....
The end result being the filename and the filesize shown..
Excel 2007
I have this simple formula: =IF(SEARCH("ABC",BQ239,1)>0,"Found", "Not Found")
Instead of saying Not Found when the value is not in the cell BQ239 text string I get #VALUE! returned
how do I get it to say "Not Found"? I searching for a substring that can be anywhere in the string.
I have a bar chart which compares two columns of data. the data in one column is fixed to 100. the data in the other column varies. a third column states whether each entry is "A" or "M". Is there a way to include the A or M on the bar chart? Perhaps by having a set colour whether the data is A or M?
View 1 Replies View RelatedWhat I need to do is add a scroll bar to my text box in my form. I used the properties of the text box to add a scroll bar but when you preview it you can't see it. When you click somewhere inside the form it appears and is workable but not when it hasn't been clicked on. How do I make the scroll bar appear from the start. this is a vertical one ad is on a text box within the form
View 11 Replies View RelatedThe graph function in Excel is driving me insane! Is it possible to do as image below shows? If so, how?
As you can see, I dont want to stack the result, but rather compare two bars with the bigger one in the background.
code to remove the titlebar of a userform in Excel/VBA.
Remove meaning the program user must not beable 2 see the titlebars..
I have some code that creates multiple new menu bars for a user which each have there own controls. I need to know which control is selected by the user for onaction. The example below is where there are up to 20 new menu bars with names Tract 1, Tract 2, etc. For each Tract, there is a controlbutton titled Absoprtion and I need to know which "Absoprtion" button was selected to run the "ViewAbsorption". I need to use th For next function because the number of menu bars could vary.
Dim objMenu As Object
Dim objViewMenu As Object
For y = x To 39
Name = "Tract" & y - 19
With Application.CommandBars("Worksheet Menu Bar").Controls
Set objMenu = .Add(Type:=msoControlPopup, temporary:=True)
objMenu.Caption = "&" & Name
End With
With Application.CommandBars("Worksheet Menu Bar").Controls(Name).Controls
Set objMenu = .Add(Type:=msoControlButton, temporary:=True)
objMenu.Caption = "&Absorption Schedule"
objMenu.OnAction = "ViewAbsorption"
Next Y
Each quarter should have the bars standing next to each other, i.e. Q1 2013 should stand right beside Q1 2012. Between these pairs of quarter there should be a small space and the the next pair, Q2 2013 and Q2 2012, should be. So how do I do this?
When I use data without stacking several info in the same bar, this isnt a problem but when I have this "aaa, bbb,ccc,ddd" in every bar, this gets messed up.
This is the data:
jan09 feb09 mar09 .....
Division 1
Division 2
Division 3
Division 4
Division 5
jan08 feb08 mar08 .....
Division 1
Division 2
Division 3
Division 4
Division 5
The graph would be a bar graph with 2 bars next to each other per month. each bar would be stacked by division. The goal is to compare for example sales in 08 with sales in 09 showing 2 bars next to each other split by division.
I am using the simple conditional format "Data Bar" to make a progress bar, going from 0-1 (0-100%), works fine .5 is halfway...ect. but what i would like it to do is to change to a different colour only when it reaches the 100% or 1 in this case so you can see quickly that this progress is complete.
View 7 Replies View RelatedI am trying to make a spreadsheet that contains numbers in columns D to P. My end user wants to be able to adjust these with scroll bars so I could make ActiveX scroll bars under each number in each column but this would be a lot of scroll bars (one in each row and columns)!!!!
Is there are way where I have have scroll bars in column D to P that only effect the active rows and always sits below the active row?
I created a bar chart with horizontal (category) labels: winter, spring, summer, fall. Y-axis label is percent. For each category there is data for blk rats, Norway rats, Mice. For each species and category the standard error is different because it is based on several years of data for a given season.
When I try to display the std. error (using custom, fixed value) it treats each species as a series and only lets me choose one value. in other words the std. error would be the same for blk rats in winter, spring, etc. How can I use the individual values?
I am building a graph and i want to conditionally format it so that if a bar is less than 24 it wil be green and if it is greater than 24 it will be red. how to do this?
View 1 Replies View RelatedI use this code to hide the tool bars in a workbook, the code works but when I go to a new sheet the row and column headings are visible. I tried several things that didn't work.
Code:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
On Error Resume Next
With Application
.DisplayFullScreen = True
[Code] ..........
how to control either the X or Y axis error bars for a scatter chart.
I'm building something like a gantt chart and I only want to use the X axis error bars and delete the Y axis bars. I've been able to add error bars by using "ActiveChart.SeriesCollection(1).HasErrorBars = True" but when i select the error bars using "ActiveChart.SeriesCollection(1).ErrorBars.Select" the Y axis (Vertical Error Bars) are automatically selected and any formatting I apply is added to the Y axis and left off of the X axis.
Does anyone know how to delete the Y axis error bars and/or choose only the X axis error bars?
i need to prepare a bar chart from some data. what i want to do is that i want bar size to be fixed (larger than what automatically comes) and then excel changes the size of chart based on no of x-axis values keeping the bar size fix.
(currently chart size is fixed and bar size changes accordingly, i just want the reverse that bar size is fixed and chart size changes according to no of values in axis)
I have a list of salesmen and their performance to date (on a percentage basis) which is sorted lowest percentage down to highest. What I would like to do is to graph this as a bar graph (no problem there) but for the bars to be replaced by the names themselves! So, I have data like this:........
View 3 Replies View RelatedIs it possible to display all of the bars from a floating bar chart on the same line. The effect would be a single horizontal bar that turns "On" and "Off" from left to right. I'm not sure of the application, but it might represent when a room is occupied over time. I think one can create this effect using Andy Pope's "Column Chart with Varying Width Bars" charting technique (provided on his web site http://www.andypope.info/charts.htm ), but is there a more direct approach?
View 5 Replies View Related