Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Variable Chart Elevation & Rotation
Everything works, almost everything. It saves multiple images of a 3D
chart as I drag around one corner. I am trying to read ".Elevation" & ".Rotation " values from cells ("S1800:T1809"). I am having an Alzheimers moment. Everything I try gets a debug error. I set "MyElevation = 20" & "MyRotation = 40" just so I could debug the rest. Excel 97 ;( Sub aElevation1() Dim MyPath As String Dim i As Long Dim MyElevation As Variant Dim MyRotation As Variant Dim r As Range MyElevation = 20 MyRotation = 40 MyPath = ActiveWorkbook.Path i = 1 Range("S1800:T1809").Select For Each r In Selection.Rows ActiveSheet.ChartObjects(2).Chart.Export MyPath & "\gif\Chart" & Format(i, "00") & ".gif", "GIF" ActiveSheet.ChartObjects("Chart 2").Activate ActiveChart.Corners.Select With ActiveChart .Elevation = MyElevation .Rotation = MyRotation End With i = i + 1 Next r End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Pie Chart - Rotation | Charts and Charting in Excel | |||
Job Rotation app? | Excel Discussion (Misc queries) | |||
Excel 2007 line chart automatic category axis text rotation | Charts and Charting in Excel | |||
Chart Rotation | Charts and Charting in Excel | |||
Team Role Rotation (number of team members is variable) | Excel Worksheet Functions |