how to get a list of the properties for form control shapes (not control toolbox shapes) that are placed on a worksheet (not on a userform). Eg., a button, checkbox, combobox, etc.
If it's possible, I'm interested in working with properties like "enabled", "caption", etc. that aren't listed on the "Format Control Properties" dialog.
I understand you can edit properties of a form control shape via VBA code (See example below), however, I can't seem to find anything within the object browser about them.
EXAMPLE
With ActiveSheet.Shapes("Scroll Bar 2").ControlFormat
.Min = 10
.Max = 150
End With
Just recently changed computers (got this one from a colleague) and I have a strange problem. Within a userform, for example when wanting to change the color of a text label (uses the forecolor property), when I open the properties box and click on the arrow that normally shows me the color pallette, I get nothing. This is true for all properties where I know for a fact one can change the color within the properties for that control. I've no idea why this is, but it's true for any spreadsheet that I open/create on this computer.
I have a bunch of Option Buttons in a worksheet whose properties i need to change by running a macro. For example, I created an OptionButton1 in a worksheet using control toolbox. Now I want to run a macro to change it's name, groupname, linkedcell and caption. I did this macro but it doesn't work:
Sub Label() Dim Code1 As String Dim Link1 As String Dim Form1 As String Dim GroupName1 As String Dim Caption1 As String Worksheets("Section1").Select Form1 = "OptionButton1" Code1 = "FButton1" Link1 = "FLink1" 'Defined in worksheet GroupName1 = "FGroup1" Caption1 = "Choose Function 1" With Worksheets("Section1").Form1 .Name = Code1 .LinkedCell = Link1 .GroupName = GroupName1 .Caption = Caption1 End With End Sub
I want to access the Properties of a number of controls in a running form, and these controls may or may not be contained in a Frame or a MultiPage.
In particular I want the Top and Left for these controls, which means I have to first find out if the control is contained in a Frame or MultiPage so I can get the reference for Top and Left. I'm ok with doing this for controls inside a Frame, but the MultiPage is eluding me. I get an error when I try to access these controls and it looks like they are actually owned by the individual Pages of the MultiPage.
how do I find out if a given control is contained in a given MultiPage?
Im trying to create many option buttons on my sheet and then change the GroupName and Name properties but im having no luck in accessing the properties. Here is the code ive got at the moment, could someone tell me how to access these properties. Shown below is a small section of the code, if you require the full code i will happily provide it. This is my first post and im not sure if this code tag thing has been done properly:
n = 18 Call Section_Header Range("D" & n - 1).Value = " Case" For i = 1 To UBound(Name_Case, 1) Range("D" & n + i).Value = Name_Case(i) Range("M" & n + i).Value = Cost_Case(i) ActiveSheet. OLEObjects.Add(ClassType:="Forms.OptionButton.1", _ Left:=628, Top:=(n - 1) * 15.75 + (1 * 6) + (i - 1) * 15.75, Width:=46.5, Height _ :=15.75).Select Next i
I have a button wich will add data entered on a form to a spreadsheet if the data meets certain criteria. If it does not it will not let you add anything. I would like to add a second button that will add the data even if it does not meet the criteria but I need the second button to only be enabled with a password. Maybe a macro to change the button properties from locked to unlocked (true to false).
Within the ComboBox properties, is there anyway to control after "enter" his hit, you move to the right instead of down (similar to the edit under Tools/Options)?
I have a workbook with 10 worksheets and I need to know the memory size for each worksheet. I know from File/ Properties that the file is 3.7mb but that is much higher than I would have expected. I can't tell which worksheets are causing it to be so large.
I have a button on a worksheet that activates a macro, the macro is stored in a "personal.xlsb" file. This file is copied to several users computers so they can use the macro, problem is once the button is assigned to a macro from one computer all the other users can't use the macro. What can I do to make this macro work on all computers? (Less placing yet another button on the tool bar).
i have a form control listbox (list box 5), it is multi select, i need to create a for next statement that loops through the list in and tells me which "row numbers" as it were are selected. i.e if the 1st and 3rd ones are blue, it returns 1,3 in a cell? (lets say cell A1).
I have a control sheet that I am building and my sliderbar is making my data just disapear and not replacing it with any new data. Can this be fixed if I am able to reverse the sliderbar
I am trying to use the Chartspace object on a VBA form in Excel 2002, but am unable to find out how to specify the speadsheet data to be used for each series. I have found out how to add series, and to add titles & legend etc.
I am trying to change the text that appears on a button on a worksheet via a macro. There is only one button on the worksheet so in the macro I use
MyCaption = activecell.value 'Pick up the button text from the spreadsheet For each sh in activesheet.shapes sh.caption = MyCaption 'I know this would do all, but only one button as I said next sh
which generates "Object doesn't support this property or method".
This is strange because if you get the properties box up, Caption definitely shows as a property of a button control.
I have many Form Control Check Boxes that all link to another sheet on row 3.
I have many changes to make but only want to implement the change related to the check box.
This code works perfect when you manualy type true or false on row 3 but not if the check box makes the change.
Private Sub Worksheet_Change(ByVal Target As Range) ThisCol = Target.Column If Target.Row = 3 Then RESULT = MsgBox(Cells(1, ThisCol) & " = " & Cells(3, ThisCol), vbOKOnly, "CLICK RESULTS") End If End Sub
Why does this not work when a check box changes the value in row 3?
I have several files with form control buttons that automate functions but, on occasion, they get smaller relative to the worksheet they're in. At some point, they become unuasable unless they're manually resized.
I have a rather large sheet with lots of embedded form control buttons, each one with a document link. Is there a function (no VBA) to search for a specific form control button in excel? for example: i want to find the form control button which is linked to the "application" document.
Does anyone know how to make a form control (ex combobox, textbox) have multiple columns so that it would behave like 4 controls in one. What im going for is a control that looks like the control used when setting windows system time "12:30:00 AM" So "12" is in col 1, ":" is in col 2, "30" is in col 3, ":" is in col 4, "00" is in col 5, and "AM" is in col 6.
Now I'm interested in some refinements to make this little toy I'm building work faster. I want the user to be able to enter data without having to click the text box in order to proceed. My code
Userform1. show
just brings up the form with a text box in it, and the user has to click in the box to get started. Is there code I can add that will put the cursor in the text box so it's ready to go?
I suppose this seems trivial, but it will speed the data entry part of this little project up and every little bit counts. . . .
I am looking to connect 2 form control boxes and have the second box run 2 different types of macros. The first box will have only 2 options - select by week and select by month.
The second box should show the list of weeks or months based on the selection in the first box. Then for the second box, if weeks is shown, a week macro should be run whenever a week date is selected. Similarly for the list of months, a month macro should be run whenever a month is selected.
I have been trying to do this for more than a week (after posting on this board) without success. I apologize if this seems like a duplicate post.
I need to extract proper unit price of a component from a large data base. So far, I have created drop down lists so that the users can select different parameters for each component. How do I use the user selected parameter to pin point the proper unit price from the large database?
I am trying to implement code that can handle a dynamic number of objects, specifically check boxes.
I know of eval( ) in perl that allows one to dynamically create command lines. For instance, the following code would change all of the Checkbox values to 1. The syntax may not be correct but the idea is solid.
Do While i < num_checkboxes eval("Checkbox" .i. ".Value=1) Loop
I am working on an Inventory control worksheet where i have all parts used in a certain assembly on the left (A) followed by Qty per assembly (B) and then current baseline Inventory (C). In columns D-max i will have at the top a pull down menu to let the user decide if they are subtracting from inventory (Purchase Order) or adding to inventory (Fulfillment). Under both circumstances, depending on which is selected I would like a different form to pop up which allows the user to enter values to control the chart.
If Purchase order is selected then a pop up will ask the order number, date, and quantity. This will then fill in three specific cells in the chart which control an equation to subtract the number of parts based on the order quantity.
If Fulfillment is selected I would like a pop up or the entire parts list to appear with a field to enter the number of parts being stocked. The program will then add these parts to the previous inventory entry.
In the example attached you can see that right now you have to manually enter the number of units ordered, then an If statement takes over to calculate the new inventory level (If statement used to keep things neat and possibly to incorporate fulfillment at a later time). At this time there is no way for me to enter stocking transactions.
I have made an excel sheet for multiple choice questions, in which person needs to click on submit button after completing with the test & pop up will say "Your score is__". Now, I want to want to add one more button named "Reset". I want below :
results:
1. Person should not be able to make any changes after clicking on "Submit" button.
2. If one tries to click on "Reset" button, it should ask for password.
3. After keying password for "Reset" button, all questions should be reset so that next person can give test.
I have attached an example excel sheet for reference : DoM1.xlsm
how to insert an attractive form control button instead of the horrible default grey buttons that come with Excel? I've seen it done, so I know it can be done.
I am having some trouble with cascading two tier drop down. I cannot seem to find out how to do it. I am trying to create a two tier cascading drop down in form control. I want the first drop down to be Products we have and the second one to be customers. I also want to be able to create a bar chart from these drop downs where after we choose our customer by product, it shows the revenue we have recieved from the customer by months. Is there a way to do this? I figured out how to do this with just one combo box, but I am unable to do a cascading one.
I am designing (badly!) an excel file that is intended to be as user friendly as possible. I would like to add in a navigation feature using a list box or other appropriate control form that will take the user to the correct tab in the workbook depending on which item they choose from the list.
My aim is too hide all the tabs at the bottom whilst not crowding my page with multiple command buttons, and still be able to navigate easily through the workbook.
