LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default 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?
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Chart gets messed up after zooming Carlo Charts and Charting in Excel 2 February 2nd 07 07:55 PM
Keyboard Shortcut for Zooming Henrik Excel Worksheet Functions 1 February 4th 06 08:54 PM
Chart Zooming and scrolling [email protected] Charts and Charting in Excel 3 November 18th 05 11:29 PM
Zooming in on a row L. Howard Kittle Excel Discussion (Misc queries) 0 October 25th 05 10:30 PM
Suppressing Worksheet Name When Zooming Out bolero Excel Worksheet Functions 1 March 10th 05 01:39 AM


All times are GMT +1. The time now is 09:55 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"