Activex Combobox Change Font Size - VBA
Sep 13, 2012
I am trying to change the font size on my combo box using VBA.
I create the combobox dynamically, so need to be able to change the font too.
This is how I create the combobox, however the .Font.Size = 10 does not work and the default font size is 11.
Code:
With ActiveSheet .OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=159.75, Top:=80.25, Width:=75.75, Height:=19.5) _
.Font.Size = 10
.Name = "cmbBaseD"
.OLEObjects("cmbBaseD").ListFillRange = "DynRng"
End With
View 2 Replies
ADVERTISEMENT
Feb 1, 2014
I have a combo Box (Form Control) in my spreadsheet which is basically used as a drop down menu.
How do I change the font size of the text that appears in the box?
View 2 Replies
View Related
Nov 8, 2013
Is there any way to change font style, size and colour of text in a combobox?
View 1 Replies
View Related
Dec 11, 2007
im using combobox from the forms toolbar. and i have tryed and searched lots of forms and sites but no results, so what im trying to do is change the font size to 12 in my combobox using VBA.
-im using xl2000
-i dont wanto switch to the combox in the active x becouse i have more than 70 comboboxs in this spread sheet. and it will also be very complicated to change the comboboxes due to all the link cell's and there values.
View 9 Replies
View Related
May 7, 2009
Somehow my tab names (in 2003) have a very small font size. How do I return the size to normal?
View 5 Replies
View Related
Jul 18, 2007
I've created a combo box in excel with the macro recorder. This is the code that came back:
Sub test1()
ActiveSheet.DropDowns.Add(1305, 52.5, 242.25, 39).Select
With Selection
.ListFillRange = "$AW$4:$AW$18"
.LinkedCell = "$AX$5"
.DropDownLines = 5
.Display3DShading = False
End With
End Sub
This always results in a default font size of 8 for my list. Can anyone tell me how to modify the code above to change the font size to 14? And how to modify the color of the list.
View 3 Replies
View Related
Apr 24, 2009
How do I set the font size property and special effect property in this code?
I was trying to answer a question on Experrt Exchange but Rory beat me to it and now I'm feeling frustrated that I can't get my solution to work.
Sub AddCombo()Dim rVals As Range, rCell As Range, lTop, lLef, lHeight, lWidth, lCount As LongSet rVals = ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)lCount = 1For Each rCell In rVals If rCell.Validation.Type = 3 Then lTop = rCell.Top lLeft = rCell.Left lHeight = rCell.Rows.Height lWidth = rCell.Columns.Width With ActiveSheet.OLEObjects.Add(classtype:="Forms.ComboBox.1", Left:=lLeft, Top:=lTop, Width:=lWidth, Height:=lHeight) .Name = "NewCombo" & lCount .ListFillRange = rCell.Validation.Formula1 .LinkedCell = rCell.Address(0, 0) '.SpecialEffect = fmSpecialEffectFlat //doesn't work // '.FontSize = 14 //doesn't work // '.Font.Size = 14 // doesn't work // End With lCount = lCount + 1 End IfNext rCellEnd Sub
View 9 Replies
View Related
Aug 13, 2008
I use this ok code to increase the font in the selected cell:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TargetRange As Range
Dim isect
Set TargetRange = Range("C:D")
Set isect = Intersect(Target, TargetRange)
If Not isect Is Nothing Then
Columns("C:D").Font.Size = 11
Target.Font.Size = 15
Exit Sub
End If
Columns("C:D").Font.Size = 11
End Sub
The problem is when i press ctrl+c to copy a cell content, so once i move the curser to the distenation cell then the copying mode in selected cell disappeared.
It is because when the event is trigered then the copying mode stops. The question is : how to let the copying mode works even when the event is trigered ?
View 4 Replies
View Related
Jan 30, 2013
How do you changethe font size in acheckbox in excel 2010?
View 1 Replies
View Related
Nov 22, 2013
I have this code as seen below that sends an email.
I would like to change the font size of - mymail.body=
How can I modify this existing code to achieve that.
Code:
Set myOlApp = CreateObject("Outlook.Application")
Set mymail = myOlApp.CreateItem(olMailItem)
mymail.Subject = strSubject
mymail.Body = "WHAT DO YOU PUT INTO A BOX ?"
mymail.Display
mymail.ReadReceiptRequested = False
mymail.attachments.Add "P:SR.xls"
mymail.to = "email@email.com"
mymail.Send
View 4 Replies
View Related
Jul 7, 2014
I have this macro that works perfectly. My boss wanted the subtotal lines within the report to be in a smaller font, so I added lines to the macro to do that. It won't work with those lines in there! It says the reference is not valid on the red line in the code below. The 2 blue sections are the ones I added to change the font size.
Code:
'Add subtotals at the end of each age bucket
For i = 10 To LR Step 1
fr = Range("E" & i - 3).End(xlUp).Row
If Range("B" & i).Value = "Totals" Then
Range("E" & i).Formula = "=SUBTOTAL(9,E" & fr & ":E" & i - 2 & ")"
With Range("E" & i & ":R" & i).FillRight
[code].....
Why would the font size make a difference? Is there some other way to change the font size that would work better?
View 5 Replies
View Related
May 26, 2009
I'm looking for the lines of VBA coding that will allow me to change the Font style, size and colour in an email.
View 9 Replies
View Related
Jul 18, 2013
I am trying to set up conditional formatting in cell C4 to change the font to a smaller number based on the value of C4. If C4 = 0 then Font Calibri 16, otherwise Font Calibri 24. However, the font size is not availabe, it is greyed out. Is there another way to accomplish this without using VBA? In the worksheet could I use an if() statement to change the font size?
View 6 Replies
View Related
Apr 21, 2014
I have recorded macro.
What I am trying to achieve is ....
When I select cell A2 and press command button Then - Columns C, D, E are unhidden
-Relative cells in selected row ( in this case C2,D2,E2) change font to 12
- When command button is pressed then C,D,E are hidden and font size goes back to 1
similarly if i select A3 same should happen to C3,D3,E3
Currently all is OK but when I press command button it all happens with the entire column C,D,E
Sample book attached.
Code is as follows:
[code]....
View 6 Replies
View Related
May 15, 2009
Looking for VBA that can change the font size of "•" char(0149) within any string in selected cells.
Also looking to delete the last "•" char(0149) within any string of selected cells.
What would the syntax for these two functions be?
View 9 Replies
View Related
Jun 3, 2006
I'm looking to set up a spreadsheet whereby individuals answer questions and have to format their answer using a particular font, colour, font size and so on. The idea is that I can then compare their answer sheet to a pre completed one using an =IF function and get a total score. The only problem is =if and =exact only lookup cell text/numbers and don't look at how the text is formatted within them.
View 9 Replies
View Related
Feb 18, 2014
I have created several macros where i use an active-X control button. This button is pressed and the macro begins...........but every now and again this button changes size for no apparent reason.
I have read countless articles/posts about what "may" be causing the problem but i have never read anything which clearly identifies the soln to this problem and the problem has been out there for years. To make matters worse the problem can not be duplicated on any regular frequency that i am aware of............so its not like i can post a file that will show the problem.............
View 4 Replies
View Related
Mar 29, 2009
I'm using 2003.
1. Copy cells B5 to V-First blank row in Strength Tests worksheet
2. Paste cells into Racks worksheet in cell C5
3. Change font size to 6
4. Sort by Column T descending then by Column C ascending
5. Copy one row (A5-W5 (1Rx23C)) from Racks worksheet
6. Paste row into M1 worksheet in cell D4
7. Print M1
8. Drop down one row on the Racks worksheet
9. Repeat steps 5-8 until there's a blank row.
View 9 Replies
View Related
Jun 10, 2013
I have my Excel set up for a default font size of 12 point.
I often download CSV data to insert into spreadsheets. It opens in a new spreadsheet, and it's properly displayed in 12 point size. When i copy and paste it into the ultimate target spreadsheet (which is also set to 12 point size) the pasted data shows up as 10-point and I have to change the font size back to 12-point every time.
Why is this happening and how can I avoid that re-sizing that occurs?
View 3 Replies
View Related
Jan 13, 2009
This probably sounds really weird, but does anyone know whether the size of the text in Cell A1 on Sheet 1 can be linked to the size of the text in Cell B2 on Sheet 2? Like, when I change the size of Cell A1's text, is there a way to have the size of Cell B2's text change as well?
View 8 Replies
View Related
Mar 18, 2009
I currently have an Excel spreadsheet already created. I have added drop down lists using the Validation>Data feature and can get this to create the drop-down box, but the font is unreadable. If I create a new sheet and create the drop-down list it becomes readable. I can't figure out why the first is unreadable due to its small size. I eventually plan to add formulas to calculate how many yes's or no's in a column, but will address that later. I use Excel 2003.
View 9 Replies
View Related
Jan 11, 2013
Is it possible to control the font size in a cell with a sliderBar?. I have a template I use to print labels on cd sleeves and need to change the font a lot. Looking for a fast and easy way,seems like a sliderbar would be easy.
View 2 Replies
View Related
Oct 26, 2013
Is there a way to adjust the font size in a comment. The default seems way to small. All thoughts on the subject .
View 4 Replies
View Related
Nov 24, 2013
I want to change Font Size ,when Conditional formatting is used in a range.
I know , it is not possible with conditional formatting basic application.
I need a macro code, if possible to do it.
View 3 Replies
View Related
Jul 28, 2007
How do you increase the font size of a drop down list in excel apart from zooming in. I have 10 dropdwnbxs each with about 16 items.
Everything works fine but users can not see the contents of each drop down box(fonts are too small). Is there a solution to this? (or just keep zooming in/out). Example i have a drop down box in A2 with source from F2:F17.....etc
How can i increse the font size?
View 9 Replies
View Related
Mar 19, 2008
whats the correct syntax for Font Size as a Label property? I am attempting to change the font size of all Labels on a particular sheet via vb
View 9 Replies
View Related
Jul 15, 2008
I have a simple combo box on my worksheet and the data range is from cells A1:A100 (this is hidden), is there a way to change the font size of the data that populates the combobox?
I have tried to re-size the data in my range but this has no effect
View 9 Replies
View Related
May 16, 2006
I have a drop-down list that displays at about a size 6 (or smaller) font when the worksheet is displayed at 75-100%. I can make it readable by changing the magnification of the sheet to 150-200%, but that takes the rest of the sheet out of view, interferes with functionality, and is just an all-around pain in the butt. How do I format the list to make it display at a readable size?
View 9 Replies
View Related
Jan 5, 2008
successfully use Activex combobox on the worksheet, (excel 2003)
without the code from other boxes being triggered at random.
Or should I give this up, and use a form to house these controls? ( I have no Knowledge on this)
I've tried certain IF then statements to protect the excecutable, but it seems, that, even boxes in other books are looked at, with a simple call statement (to a macro in module)
Having a real problem in Isolating these things.
Try to get the code to activate when you select the same Item twice, It seems none of the procedures do this. I made a workaround with using two procedures, but it's a bit clumsy.
View 9 Replies
View Related
Jun 4, 2009
I've created a workbook on whose main sheet there are three activex comboboxes. The first one contains a list of years, and the second one contains a list of months. The user selects the year, and it goes to its linked cell. The user then selects a month, and using the Combobox_Click event, should run a sequence of 7 macros (i.e. using the "call updateinformation1" macro, which is the first of the seven updateinformation macros).
The sequence of macros ran fine before I added the comboboxes. After adding the comboboxes, the final (7th) macro somehow goes back to the first macro and then causes a "ClearContents method of Range class failed" error on the "Selection.ClearContents" line. These are the first and seventh macros:
Sub updateinformation1()
'clears previous information to make way for new information
Application.ScreenUpdating = False
Application.EnableEvents = False
Worksheets("Criteria2").Activate
Cells.Select
Selection.ClearContents
I can't for the life of me figure out why it's looping back to the first macro instead of just stopping after the seventh. I have other workbooks that do something similar, and I don't have this problem. Am I missing something?
if I need to post all 7 macros?
View 9 Replies
View Related