Re: $$Excel-Macros$$ Comments Boxes - Temporary Zoom In

2011-07-20 Thread Cab Boose
Hi Daniel

Works perfect.  I am very pleased with your help.

Regards

Charlie

On Wed, Jul 20, 2011 at 10:04 PM, Daniel  wrote:

> My last effort ; see attached file.
>
> ** **
>
> *De :* excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
> *De la part de* Cab Boose
> *Envoyé :* mardi 19 juillet 2011 22:56
>
> *À :* excel-macros@googlegroups.com
> *Objet :* Re: $$Excel-Macros$$ Comments Boxes - Temporary Zoom In
>
> ** **
>
> Hi Daniel
>
>  
>
> Sorry to say, still doing the same thing.
>
> I am using  Excel2000 and Win7.
>
>  
>
> Appreciate yur comments.
>
>  
>
> Thankyou
>
>  
>
> Charlie
>
> On Tue, Jul 19, 2011 at 10:37 PM, Daniel  wrote:
>
> Sorry. Hope this one is better.
>
>  
>
> Daniel
>
>  
>
> *De :* excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
> *De la part de* Cab Boose
> *Envoyé :* mardi 19 juillet 2011 06:27
>
>
> *À :* excel-macros@googlegroups.com
>
> *Objet :* Re: $$Excel-Macros$$ Comments Boxes - Temporary Zoom In
>
>  
>
> Hi Daniel
>
>  
>
> Thanks for a great result.  Not quite there yet.  When double click the
> comment box doubles it size.  When cursor is moved away from that cell and
> then back to that cell the double size is still there sometimes.  Sometimes
> it does go back to normal but not all the time.  
>
>  
>
> So when the comments has been double clicked and then closed by moving the
> cursor, when looking at that comments again it should be normal size.
>
>  
>
> Hope I  have explained well.
>
>  
>
> Thankyou
>
>  
>
>  
>
> Charlie
>
> On Mon, Jul 18, 2011 at 10:27 PM, Daniel  wrote:
>
> Hi,
>
> Have alook at the attached workbook.
>
> You need a standard module where you paste :
>
>  
>
> Public Res As String
>
>  
>
> In the sheet module, paste :
>
>  
>
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean)
>
> If Intersect(ActiveSheet.Cells.SpecialCells(xlCellTypeComments), Target) _
> 
>
> Is Nothing Then Exit Sub
>
> Cancel = True
>
> If Res <> "" Then
>
> With Range(Res).Comment.Shape
>
> .Height = .Height / 2
>
> .Width = .Width / 2
>
> End With
>
> End If
>
> Res = Target.Address
>
> With Target.Comment.Shape
>
> .Height = .Height * 2
>
> .Width = .Width * 2
>
> End With
>
> End Sub
>
>  
>
> Regards.
>
> Daniel
>
>  
>
> *De :* excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
> *De la part de* Cab Boose
> *Envoyé :* lundi 18 juillet 2011 09:56
> *À :* excel-macros@googlegroups.com
> *Objet :* $$Excel-Macros$$ Comments Boxes - Temporary Zoom In
>
>  
>
> Hi Ashish and all
>
>  
>
> I have a spreadsheet (thanks to Ashish) that uses comments boxes.  The size
> of the box is great.  But on some occassions the user will want to see a
> larger box.  I know it can be increased thru edit and resize etc but is
> there a way to say have a right click where the size  could double.  When
> finished and user goes to another box the box size returns to standard.***
> *
>
> Another option may be to have a shortcut key to double the size of active
> comments box, return to standard size when finished.
>
> Have Googled with no luck.
>
>  
>
>  
>
> Thankyou everyone
>
>  
>
> Charlie Harris
>
> --
>
> --
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://w

Re: $$Excel-Macros$$ Comments Boxes - Temporary Zoom In

2011-07-19 Thread Cab Boose
Hi Daniel

Sorry to say, still doing the same thing.
I am using  Excel2000 and Win7.

Appreciate yur comments.

Thankyou

Charlie

On Tue, Jul 19, 2011 at 10:37 PM, Daniel  wrote:

> Sorry. Hope this one is better.
>
> ** **
>
> Daniel
>
> ** **
>
> *De :* excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
> *De la part de* Cab Boose
> *Envoyé :* mardi 19 juillet 2011 06:27
>
> *À :* excel-macros@googlegroups.com
> *Objet :* Re: $$Excel-Macros$$ Comments Boxes - Temporary Zoom In
>
> ** **
>
> Hi Daniel
>
>  
>
> Thanks for a great result.  Not quite there yet.  When double click the
> comment box doubles it size.  When cursor is moved away from that cell and
> then back to that cell the double size is still there sometimes.  Sometimes
> it does go back to normal but not all the time.  
>
>  
>
> So when the comments has been double clicked and then closed by moving the
> cursor, when looking at that comments again it should be normal size.
>
>  
>
> Hope I  have explained well.
>
>  
>
> Thankyou
>
>  
>
>  
>
> Charlie
>
> On Mon, Jul 18, 2011 at 10:27 PM, Daniel  wrote:
>
> Hi,
>
> Have alook at the attached workbook.
>
> You need a standard module where you paste :
>
>  
>
> Public Res As String
>
>  
>
> In the sheet module, paste :
>
>  
>
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean)
>
> If Intersect(ActiveSheet.Cells.SpecialCells(xlCellTypeComments), Target) _
> 
>
> Is Nothing Then Exit Sub
>
> Cancel = True
>
> If Res <> "" Then
>
> With Range(Res).Comment.Shape
>
> .Height = .Height / 2
>
> .Width = .Width / 2
>
> End With
>
> End If
>
> Res = Target.Address
>
> With Target.Comment.Shape
>
> .Height = .Height * 2
>
> .Width = .Width * 2
>
> End With
>
> End Sub
>
>  
>
> Regards.
>
> Daniel
>
>  
>
> *De :* excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
> *De la part de* Cab Boose
> *Envoyé :* lundi 18 juillet 2011 09:56
> *À :* excel-macros@googlegroups.com
> *Objet :* $$Excel-Macros$$ Comments Boxes - Temporary Zoom In
>
>  
>
> Hi Ashish and all
>
>  
>
> I have a spreadsheet (thanks to Ashish) that uses comments boxes.  The size
> of the box is great.  But on some occassions the user will want to see a
> larger box.  I know it can be increased thru edit and resize etc but is
> there a way to say have a right click where the size  could double.  When
> finished and user goes to another box the box size returns to standard.***
> *
>
> Another option may be to have a shortcut key to double the size of active
> comments box, return to standard size when finished.
>
> Have Googled with no luck.
>
>  
>
>  
>
> Thankyou everyone
>
>  
>
> Charlie Harris
>
> --
>
> --
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
> --
>
> --
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><

Re: $$Excel-Macros$$ Comments Boxes - Temporary Zoom In

2011-07-18 Thread ashish koul
try this


Sub reduce()
Dim a As Range

For Each a In Cells.SpecialCells(xlCellTypeComments)
a.Comment.Visible = False
a.Comment.Shape.TextFrame.AutoSize = True
Next a
End Sub





On Tue, Jul 19, 2011 at 9:56 AM, Cab Boose  wrote:

> Hi Daniel
>
> Thanks for a great result.  Not quite there yet.  When double click the
> comment box doubles it size.  When cursor is moved away from that cell and
> then back to that cell the double size is still there sometimes.  Sometimes
> it does go back to normal but not all the time.
>
> So when the comments has been double clicked and then closed by moving the
> cursor, when looking at that comments again it should be normal size.
>
> Hope I  have explained well.
>
> Thankyou
>
>
> Charlie
>
> On Mon, Jul 18, 2011 at 10:27 PM, Daniel  wrote:
>
>> Hi,
>>
>> Have alook at the attached workbook.
>>
>> You need a standard module where you paste :
>>
>> ** **
>>
>> Public Res As String
>>
>> ** **
>>
>> In the sheet module, paste :
>>
>> ** **
>>
>> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
>> Boolean)
>>
>> If Intersect(ActiveSheet.Cells.SpecialCells(xlCellTypeComments), Target) _
>> 
>>
>> Is Nothing Then Exit Sub
>>
>> Cancel = True
>>
>> If Res <> "" Then
>>
>> With Range(Res).Comment.Shape
>>
>> .Height = .Height / 2
>>
>> .Width = .Width / 2
>>
>> End With
>>
>> End If
>>
>> Res = Target.Address
>>
>> With Target.Comment.Shape
>>
>> .Height = .Height * 2
>>
>> .Width = .Width * 2
>>
>> End With
>>
>> End Sub
>>
>> ** **
>>
>> Regards.
>>
>> Daniel
>>
>> ** **
>>
>> *De :* excel-macros@googlegroups.com [mailto:
>> excel-macros@googlegroups.com] *De la part de* Cab Boose
>> *Envoyé :* lundi 18 juillet 2011 09:56
>> *À :* excel-macros@googlegroups.com
>> *Objet :* $$Excel-Macros$$ Comments Boxes - Temporary Zoom In
>>
>> ** **
>>
>> Hi Ashish and all
>>
>>  
>>
>> I have a spreadsheet (thanks to Ashish) that uses comments boxes.  The
>> size of the box is great.  But on some occassions the user will want to see
>> a larger box.  I know it can be increased thru edit and resize etc but is
>> there a way to say have a right click where the size  could double.  When
>> finished and user goes to another box the box size returns to standard.**
>> **
>>
>> Another option may be to have a shortcut key to double the size of active
>> comments box, return to standard size when finished.
>>
>> Have Googled with no luck.
>>
>>  
>>
>>  
>>
>> Thankyou everyone
>>
>>  
>>
>> Charlie Harris
>>
>> --
>>
>> --
>> Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> Like our page on facebook , Just follow below link
>> http://www.facebook.com/discussexcel
>>
>> --
>>
>> --
>> Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> Like our page on facebook , Just follow below link
>> http://www.facebook.com/discussexcel
>>
>
>  --
>
> --
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>



-- 
*Regards*
* *
*Ashish Koul*
*akoul*.*blogspot*.com 
http://akoul.posterous.com/
*akoul*.wordpress.com 
My Linkedin Profile 

Re: $$Excel-Macros$$ Comments Boxes - Temporary Zoom In

2011-07-18 Thread Cab Boose
Hi Daniel

Thanks for a great result.  Not quite there yet.  When double click the
comment box doubles it size.  When cursor is moved away from that cell and
then back to that cell the double size is still there sometimes.  Sometimes
it does go back to normal but not all the time.

So when the comments has been double clicked and then closed by moving the
cursor, when looking at that comments again it should be normal size.

Hope I  have explained well.

Thankyou


Charlie

On Mon, Jul 18, 2011 at 10:27 PM, Daniel  wrote:

> Hi,
>
> Have alook at the attached workbook.
>
> You need a standard module where you paste :
>
> ** **
>
> Public Res As String
>
> ** **
>
> In the sheet module, paste :
>
> ** **
>
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean)
>
> If Intersect(ActiveSheet.Cells.SpecialCells(xlCellTypeComments), Target) _
> 
>
> Is Nothing Then Exit Sub
>
> Cancel = True
>
> If Res <> "" Then
>
> With Range(Res).Comment.Shape
>
> .Height = .Height / 2
>
> .Width = .Width / 2
>
> End With
>
> End If
>
> Res = Target.Address
>
> With Target.Comment.Shape
>
> .Height = .Height * 2
>
> .Width = .Width * 2
>
> End With
>
> End Sub
>
> ** **
>
> Regards.
>
> Daniel
>
> ** **
>
> *De :* excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
> *De la part de* Cab Boose
> *Envoyé :* lundi 18 juillet 2011 09:56
> *À :* excel-macros@googlegroups.com
> *Objet :* $$Excel-Macros$$ Comments Boxes - Temporary Zoom In
>
> ** **
>
> Hi Ashish and all
>
>  
>
> I have a spreadsheet (thanks to Ashish) that uses comments boxes.  The size
> of the box is great.  But on some occassions the user will want to see a
> larger box.  I know it can be increased thru edit and resize etc but is
> there a way to say have a right click where the size  could double.  When
> finished and user goes to another box the box size returns to standard.***
> *
>
> Another option may be to have a shortcut key to double the size of active
> comments box, return to standard size when finished.
>
> Have Googled with no luck.
>
>  
>
>  
>
> Thankyou everyone
>
>  
>
> Charlie Harris
>
> --
>
> --
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
> --
>
> --
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>

-- 
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel