If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
possible to equisize charts (6) in chart sheet?
My chart sheet has six charts on it; arranged in two
columns of three charts each. The "snap to grid" feature is nice yet I am having difficulty getting all six of the charts to be the same size/dimension. Is there a shortcut for doing this or is it necessary to simply "eyeball" the heights and widths of the charts? I am hoping there is a way to automatically "tile" the charts. Thank you. |
#2
|
|||
|
|||
possible to equisize charts (6) in chart sheet?
Andrew -
I usually use a regular worksheet for this, a blank one without all those numbers cluttering it up. When you drag and stretch charts on a worksheet, holding the Alt button snaps the edges of the charts to the worksheet cell boundaries. You could revert to a VBA procedu Sub TileSix() Dim ChtOb As ChartObject Dim i As Integer i = 0 For Each ChtOb In ActiveSheet.ChartObjects With ChtOb .Height = Int(ActiveSheet.ChartArea.Height / 2) .Width = Int(ActiveSheet.ChartArea.Width / 3) If i 2 Then .Top = 0 Else .Top = Int(ActiveSheet.ChartArea.Height / 2) End If .Left = Int(ActiveSheet.ChartArea.Width / 3) _ * (i Mod 3) End With i = i + 1 Next End Sub - Jon ------- Jon Peltier, Microsoft Excel MVP http://www.geocities.com/jonpeltier/Excel/index.html _______ Andrew wrote: My chart sheet has six charts on it; arranged in two columns of three charts each. The "snap to grid" feature is nice yet I am having difficulty getting all six of the charts to be the same size/dimension. Is there a shortcut for doing this or is it necessary to simply "eyeball" the heights and widths of the charts? I am hoping there is a way to automatically "tile" the charts. Thank you. |
#3
|
|||
|
|||
possible to equisize charts (6) in chart sheet?
Great suggestion, I will do that.
Thank you. -----Original Message----- Andrew - I usually use a regular worksheet for this, a blank one without all those numbers cluttering it up. When you drag and stretch charts on a worksheet, holding the Alt button snaps the edges of the charts to the worksheet cell boundaries. You could revert to a VBA procedu Sub TileSix() Dim ChtOb As ChartObject Dim i As Integer i = 0 For Each ChtOb In ActiveSheet.ChartObjects With ChtOb .Height = Int(ActiveSheet.ChartArea.Height / 2) .Width = Int(ActiveSheet.ChartArea.Width / 3) If i 2 Then .Top = 0 Else .Top = Int(ActiveSheet.ChartArea.Height / 2) End If .Left = Int(ActiveSheet.ChartArea.Width / 3) _ * (i Mod 3) End With i = i + 1 Next End Sub - Jon ------- Jon Peltier, Microsoft Excel MVP http://www.geocities.com/jonpeltier/Excel/index.html _______ Andrew wrote: My chart sheet has six charts on it; arranged in two columns of three charts each. The "snap to grid" feature is nice yet I am having difficulty getting all six of the charts to be the same size/dimension. Is there a shortcut for doing this or is it necessary to simply "eyeball" the heights and widths of the charts? I am hoping there is a way to automatically "tile" the charts. Thank you. . |
#4
|
|||
|
|||
possible to equisize charts (6) in chart sheet?
To add to Jon's suggestions.
If you hold the shift-key whilst clicking the charts you can use the Align and Distribute options from the Drawing toolbar. Also you can right click and format the height and width of all selected objects. Jon Peltier wrote: Andrew - I usually use a regular worksheet for this, a blank one without all those numbers cluttering it up. When you drag and stretch charts on a worksheet, holding the Alt button snaps the edges of the charts to the worksheet cell boundaries. You could revert to a VBA procedu Sub TileSix() Dim ChtOb As ChartObject Dim i As Integer i = 0 For Each ChtOb In ActiveSheet.ChartObjects With ChtOb .Height = Int(ActiveSheet.ChartArea.Height / 2) .Width = Int(ActiveSheet.ChartArea.Width / 3) If i 2 Then .Top = 0 Else .Top = Int(ActiveSheet.ChartArea.Height / 2) End If .Left = Int(ActiveSheet.ChartArea.Width / 3) _ * (i Mod 3) End With i = i + 1 Next End Sub - Jon ------- Jon Peltier, Microsoft Excel MVP http://www.geocities.com/jonpeltier/Excel/index.html _______ Andrew wrote: My chart sheet has six charts on it; arranged in two columns of three charts each. The "snap to grid" feature is nice yet I am having difficulty getting all six of the charts to be the same size/dimension. Is there a shortcut for doing this or is it necessary to simply "eyeball" the heights and widths of the charts? I am hoping there is a way to automatically "tile" the charts. Thank you. -- Cheers Andy http://www.andypope.info |
Thread Tools | |
Display Modes | |
|
|