Chart View

  • Thread starter Thread starter Roger
  • Start date Start date
R

Roger

Is it possible to have several charts on one sheet and
have the chart be viewed like thumbnail view (or just a
smaller version of the chart) and all you have to do is
click on the chart you want to open up or zoom in and it
will make the chart legible.

I posted this in Charting but I still haven't received an
answer. I hope someone can help me.
 
Roger,

Paste this stuff from here into a a module:

Sub ToggleChart()
Const WidthThumb = 125
Const HeightThumb = 100
Const WidthMaxed = 400
Const HeightMaxed = 300
Const TopMaxed = 30
Const LeftMaxed = 100
Static TopThumb
Static LeftThumb
Static ChartMaxed As Boolean
ChartName = Application.Caller
If ChartMaxed Then
ChartMaxed = False
ActiveSheet.ChartObjects(ChartName).Height = HeightThumb
ActiveSheet.ChartObjects(ChartName).Width = WidthThumb
ActiveSheet.ChartObjects(ChartName).Left = LeftThumb
ActiveSheet.ChartObjects(ChartName).Top = TopThumb
Else
LeftThumb = ActiveSheet.ChartObjects(ChartName).Left
TopThumb = ActiveSheet.ChartObjects(ChartName).Top

ChartMaxed = True
ActiveSheet.ChartObjects(ChartName).Height = HeightMaxed
ActiveSheet.ChartObjects(ChartName).Width = WidthMaxed
ActiveSheet.ChartObjects(ChartName).Left = LeftMaxed
ActiveSheet.ChartObjects(ChartName).Top = TopMaxed
ActiveSheet.ChartObjects(ChartName).ShapeRange.ZOrder msoBringToFront
End If
End Sub

Shift-click each chart, then right-click it, Assign macro, ToggleChart. You
should be able to click a chart to maximize it, then click it again to
restore it to a thumbnail. It's a bit barebones, and won't handle
maximizing two charts consecutively correctly, but we'll start with this.
Set the numbers to the sizes and positions you want.
 
A Module?
What is that?
How Do I Do It?
-----Original Message-----
Roger,

Paste this stuff from here into a a module:

Sub ToggleChart()
Const WidthThumb = 125
Const HeightThumb = 100
Const WidthMaxed = 400
Const HeightMaxed = 300
Const TopMaxed = 30
Const LeftMaxed = 100
Static TopThumb
Static LeftThumb
Static ChartMaxed As Boolean
ChartName = Application.Caller
If ChartMaxed Then
ChartMaxed = False
ActiveSheet.ChartObjects(ChartName).Height = HeightThumb
ActiveSheet.ChartObjects(ChartName).Width = WidthThumb
ActiveSheet.ChartObjects(ChartName).Left = LeftThumb
ActiveSheet.ChartObjects(ChartName).Top = TopThumb
Else
LeftThumb = ActiveSheet.ChartObjects(ChartName).Left
TopThumb = ActiveSheet.ChartObjects(ChartName).Top

ChartMaxed = True
ActiveSheet.ChartObjects(ChartName).Height = HeightMaxed
ActiveSheet.ChartObjects(ChartName).Width = WidthMaxed
ActiveSheet.ChartObjects(ChartName).Left = LeftMaxed
ActiveSheet.ChartObjects(ChartName).Top = TopMaxed
ActiveSheet.ChartObjects(ChartName).ShapeRange.ZOrder msoBringToFront
End If
End Sub

Shift-click each chart, then right-click it, Assign macro, ToggleChart. You
should be able to click a chart to maximize it, then click it again to
restore it to a thumbnail. It's a bit barebones, and won't handle
maximizing two charts consecutively correctly, but we'll start with this.
Set the numbers to the sizes and positions you want.
--
Earl Kiosterud
mvpearl omitthisword at verizon period net
-------------------------------------------




.
Click to expand...
 
Check my response to your post in .charting.

--
Regards,

Tushar Mehta, MS MVP -- Excel
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions
 
Back
Top