| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Validation Dropdown Font Size Change
I understand that there's no way to control the font SIZE for dropdown text
using validation (Excel 2002). I'm trying to simulate an onfocus event to change the display percentage to 200% when cell D2 is selected, but it isn't working. Here's the code, can anyone tell me what I'm doing wrong? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$D$2" Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub Thanks, in advance, for your help. G |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Validation Dropdown Font Size Change
It works in Excel 2007, are you putting the code behind the worksheet?
-- Regards, Nigel "G" wrote in message ... I understand that there's no way to control the font SIZE for dropdown text using validation (Excel 2002). I'm trying to simulate an onfocus event to change the display percentage to 200% when cell D2 is selected, but it isn't working. Here's the code, can anyone tell me what I'm doing wrong? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$D$2" Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub Thanks, in advance, for your help. G |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Validation Dropdown Font Size Change
Try this.....
If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If If this post helps click Yes --------------- Jacob Skaria "G" wrote: I understand that there's no way to control the font SIZE for dropdown text using validation (Excel 2002). I'm trying to simulate an onfocus event to change the display percentage to 200% when cell D2 is selected, but it isn't working. Here's the code, can anyone tell me what I'm doing wrong? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$D$2" Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub Thanks, in advance, for your help. G |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Validation Dropdown Font Size Change
This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target
highlighted). "Jacob Skaria" wrote: Try this..... If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If If this post helps click Yes --------------- Jacob Skaria "G" wrote: I understand that there's no way to control the font SIZE for dropdown text using validation (Excel 2002). I'm trying to simulate an onfocus event to change the display percentage to 200% when cell D2 is selected, but it isn't working. Here's the code, can anyone tell me what I'm doing wrong? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$D$2" Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub Thanks, in advance, for your help. G |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Validation Dropdown Font Size Change
By 'behind the worksheet' do you mean that the code is on in the same object
as the cell (D2)? If so, yes, it is behind the worksheet. "Nigel" wrote: It works in Excel 2007, are you putting the code behind the worksheet? -- Regards, Nigel "G" wrote in message ... I understand that there's no way to control the font SIZE for dropdown text using validation (Excel 2002). I'm trying to simulate an onfocus event to change the display percentage to 200% when cell D2 is selected, but it isn't working. Here's the code, can anyone tell me what I'm doing wrong? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$D$2" Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub Thanks, in advance, for your help. G |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Validation Dropdown Font Size Change
You should have pasted the code within the procedure/ Please try....
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub -- If this post helps click Yes --------------- Jacob Skaria "G" wrote: This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target highlighted). "Jacob Skaria" wrote: Try this..... If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If If this post helps click Yes --------------- Jacob Skaria "G" wrote: I understand that there's no way to control the font SIZE for dropdown text using validation (Excel 2002). I'm trying to simulate an onfocus event to change the display percentage to 200% when cell D2 is selected, but it isn't working. Here's the code, can anyone tell me what I'm doing wrong? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$D$2" Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub Thanks, in advance, for your help. G |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Validation Dropdown Font Size Change
I mean.........
With wbOriginal.Sheets("Data") 'Loop from 3rd row to 100 row/Col A(1) to G(7) totRows = .Cells(Rows.Count, "A").End(xlUp).Row totCols = .Cells(1, Columns.Count).End(xlToLeft).Column For lngRow = 3 To totRows For lngCol = 1 To totCols wbArchive.Sheets("Sheet1").Cells(lngRow - 2, lngCol) = .Cells(lngRow, lngCol).Value Next Next End With -- If this post helps click Yes --------------- Jacob Skaria "G" wrote: This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target highlighted). "Jacob Skaria" wrote: Try this..... If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If If this post helps click Yes --------------- Jacob Skaria "G" wrote: I understand that there's no way to control the font SIZE for dropdown text using validation (Excel 2002). I'm trying to simulate an onfocus event to change the display percentage to 200% when cell D2 is selected, but it isn't working. Here's the code, can anyone tell me what I'm doing wrong? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$D$2" Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub Thanks, in advance, for your help. G |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Validation Dropdown Font Size Change
My b ... figured that out before I read this and it's working, now. Thanks.
One (last) question ... is there an afterupdate method? After this is updated, I want to move to another cell to restore the original size. Thanks. "Jacob Skaria" wrote: You should have pasted the code within the procedure/ Please try.... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub -- If this post helps click Yes --------------- Jacob Skaria "G" wrote: This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target highlighted). "Jacob Skaria" wrote: Try this..... If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If If this post helps click Yes --------------- Jacob Skaria "G" wrote: I understand that there's no way to control the font SIZE for dropdown text using validation (Excel 2002). I'm trying to simulate an onfocus event to change the display percentage to 200% when cell D2 is selected, but it isn't working. Here's the code, can anyone tell me what I'm doing wrong? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$D$2" Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub Thanks, in advance, for your help. G |
|
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Validation Dropdown Font Size Change
Sorry the below is on a different post...
-- If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: I mean......... With wbOriginal.Sheets("Data") 'Loop from 3rd row to 100 row/Col A(1) to G(7) totRows = .Cells(Rows.Count, "A").End(xlUp).Row totCols = .Cells(1, Columns.Count).End(xlToLeft).Column For lngRow = 3 To totRows For lngCol = 1 To totCols wbArchive.Sheets("Sheet1").Cells(lngRow - 2, lngCol) = .Cells(lngRow, lngCol).Value Next Next End With -- If this post helps click Yes --------------- Jacob Skaria "G" wrote: This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target highlighted). "Jacob Skaria" wrote: Try this..... If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If If this post helps click Yes --------------- Jacob Skaria "G" wrote: I understand that there's no way to control the font SIZE for dropdown text using validation (Excel 2002). I'm trying to simulate an onfocus event to change the display percentage to 200% when cell D2 is selected, but it isn't working. Here's the code, can anyone tell me what I'm doing wrong? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$D$2" Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub Thanks, in advance, for your help. G |
|
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Validation Dropdown Font Size Change
The below code does that too.. Only in D2 the zoom is set to 200.
-- If this post helps click Yes --------------- Jacob Skaria "G" wrote: My b ... figured that out before I read this and it's working, now. Thanks. One (last) question ... is there an afterupdate method? After this is updated, I want to move to another cell to restore the original size. Thanks. "Jacob Skaria" wrote: You should have pasted the code within the procedure/ Please try.... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub -- If this post helps click Yes --------------- Jacob Skaria "G" wrote: This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target highlighted). "Jacob Skaria" wrote: Try this..... If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If If this post helps click Yes --------------- Jacob Skaria "G" wrote: I understand that there's no way to control the font SIZE for dropdown text using validation (Excel 2002). I'm trying to simulate an onfocus event to change the display percentage to 200% when cell D2 is selected, but it isn't working. Here's the code, can anyone tell me what I'm doing wrong? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$D$2" Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub Thanks, in advance, for your help. G |
|
#11
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Validation Dropdown Font Size Change
Thanks for your help, Jacob. Actually, the zoom doesn't change unless I
MANUALLY move to another cell. Possible to set it up so that afterupdate, it moves to another cell (zoom resets)? Also, I have one other cell that I want to do this for (dropdown zoom) ... can I just add code to include this cell or do I need another procedure? Thx. "Jacob Skaria" wrote: The below code does that too.. Only in D2 the zoom is set to 200. -- If this post helps click Yes --------------- Jacob Skaria "G" wrote: My b ... figured that out before I read this and it's working, now. Thanks. One (last) question ... is there an afterupdate method? After this is updated, I want to move to another cell to restore the original size. Thanks. "Jacob Skaria" wrote: You should have pasted the code within the procedure/ Please try.... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub -- If this post helps click Yes --------------- Jacob Skaria "G" wrote: This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target highlighted). "Jacob Skaria" wrote: Try this..... If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If If this post helps click Yes --------------- Jacob Skaria "G" wrote: I understand that there's no way to control the font SIZE for dropdown text using validation (Excel 2002). I'm trying to simulate an onfocus event to change the display percentage to 200% when cell D2 is selected, but it isn't working. Here's the code, can anyone tell me what I'm doing wrong? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$D$2" Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub Thanks, in advance, for your help. G |
|
#12
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Validation Dropdown Font Size Change
You can add the condition to the existing event itself.
-- If this post helps click Yes --------------- Jacob Skaria "G" wrote: Thanks for your help, Jacob. Actually, the zoom doesn't change unless I MANUALLY move to another cell. Possible to set it up so that afterupdate, it moves to another cell (zoom resets)? Also, I have one other cell that I want to do this for (dropdown zoom) ... can I just add code to include this cell or do I need another procedure? Thx. "Jacob Skaria" wrote: The below code does that too.. Only in D2 the zoom is set to 200. -- If this post helps click Yes --------------- Jacob Skaria "G" wrote: My b ... figured that out before I read this and it's working, now. Thanks. One (last) question ... is there an afterupdate method? After this is updated, I want to move to another cell to restore the original size. Thanks. "Jacob Skaria" wrote: You should have pasted the code within the procedure/ Please try.... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub -- If this post helps click Yes --------------- Jacob Skaria "G" wrote: This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target highlighted). "Jacob Skaria" wrote: Try this..... If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If If this post helps click Yes --------------- Jacob Skaria "G" wrote: I understand that there's no way to control the font SIZE for dropdown text using validation (Excel 2002). I'm trying to simulate an onfocus event to change the display percentage to 200% when cell D2 is selected, but it isn't working. Here's the code, can anyone tell me what I'm doing wrong? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$D$2" Then ActiveWindow.Zoom = 200 Else ActiveWindow.Zoom = 100 End If End Sub Thanks, in advance, for your help. G |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| how do I change font size in a dropdown menu I created? | New Users to Excel | |||
| how can I change the font size on a validation list | Excel Programming | |||
| How to change the font size of Validation List? | Excel Programming | |||
| How do I change the size of font/display in a dropdown list I've . | Excel Programming | |||
| Change font size in drop down validation lists | Excel Discussion (Misc queries) | |||
Linear Mode
