Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Size & Position charts on Sheet
Bruce -
I avoid the scalewidth and scaleheight. To resize all the charts, use a loop like this: Dim ChtOb As ChartObject For Each ChtOb In ActiveSheet.ChartObjects With ChtOb ' dimensions in points .Height = 200 .Width = 275 End With Next If you have an algorithm for arraying your chart objects, you can use a similar loop to adjust the .top and .left of each chart object. - Jon ------- Jon Peltier, Microsoft Excel MVP Peltier Technical Services Tutorials and Custom Solutions http://PeltierTech.com/ _______ Bruce wrote: I would like to resize and reposition a number of charts on my worksheet, however I do not know how many charts there will be or what chart number they will be. So far I have setup code to add the charts as my chart array changes in size. 1) How do I set the scalewidth and scaleheight for all charts I have tried changing this; ActiveSheet.Shapes("Chart 23").ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft into ActiveChart.ChartArea.ScaleWidth 0.91, msoFalse, msoScaleFromTopLeft but ive got something wrong.... 2) For the positioning, say if I had 10 charts on the worksheet it would arrange them as 2x5. When the array is 8 charts it would do 2x4. Any ideas on how to do this? Bruce |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Fix size and position of comment | Excel Discussion (Misc queries) | |||
how to change font size of datalabels of two charts in a sheet | Charts and Charting in Excel | |||
Window Position & Size | Excel Discussion (Misc queries) | |||
Chart size/position | Excel Programming | |||
Position/Size a MessageBow | Excel Programming |