Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with Macro for Zooming when cells have Comments?
I'm using Debra's macro for autozooming when a cell has a drop down
menu... http://www.contextures.com/xlDataVal08.html#AllCells I'm not a VBasic expert. But throwing caution to the wind, I tried to use the same technique to zoom when a cell has a Comment [as an alternative to changing comment font settings in the Control Panel (Display, Appearance, Tool Tip).] But it's not working. Here's the macro. Can anyone offer help to get this working? Private Sub Worksheet_SelectionComment(ByVal Target As Range) Dim rngDV As Range Application.EnableEvents = False On Error Resume Next Set rngDV = Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If rngDV Is Nothing Then Exit Sub If Intersect(Target, rngDV) Is Nothing Then ActiveWindow.Zoom = 62 Else ActiveWindow.Zoom = 100 End If Application.EnableEvents = True End Sub The only things I changed from Debra's macro we 1. the subroutine title (from Worksheet_SelectionChange to Worksheet_SelectionCcomment) and 2. the SpecialCells type (from xlCellTypeAllValidation to xlCellTypeComments) Both macros are in the same Visual Basic code window. One thing I don't understand is that when I click in the original Validation macro, the two pulldowns at the top of the Code Window say: Worksheet and SelectionChange When I click in the new Comments macro the two pulldowns say: (General) and Worksheet_SelectionComment Maybe this is a clue to my problem? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Chart gets messed up after zooming | Charts and Charting in Excel | |||
Keyboard Shortcut for Zooming | Excel Worksheet Functions | |||
Chart Zooming and scrolling | Charts and Charting in Excel | |||
Zooming in on a row | Excel Discussion (Misc queries) | |||
Suppressing Worksheet Name When Zooming Out | Excel Worksheet Functions |