VBA EXCEL97: How to get the range from a chart into a range object 
Author Message
 VBA EXCEL97: How to get the range from a chart into a range object

Hi all,

I'm trying to optimize a process that makes a presentation in
powerpoint from data that is updated monthly. Data is inserted into
excel from a query updating some 120 pivotables and producing 120

Excel messes up the data a bit. Often the sourcedata of the chart
stay's correct, but row and colums are switched. I'm trying to build a
macros that corrects this situation. I'm getting stuck with getting
the rangwe from the current chart.

Any help


Sub CorrigeerGrafieken()
'Gemaakt door Cees Harlaar (Brunel ICT)
Dim mySheet As Object
'Dim myChart As Object
Dim myRange As Range
Dim myIndex As Object
Dim ChartItemCount As Integer
Dim iTeller As Integer
Dim strSheet As String
Dim strChart As String
Dim intVolgnummer As Integer
Set dlgSource = ThisWorkbook.DialogSheets("dlgSource")

    For Each mySheet In ActiveWorkbook.Sheets
        'iTeller = 0
        If InStr(1, ActiveSheet.Name, "Query D") Then
            ChartItemCount = ActiveSheet.ChartObjects.Count
            'MsgBox ActiveSheet.Name & " " & ChartItemCount
            For iTeller = 1 To ChartItemCount
                Set myRange =
                ctiveChart.SetSourceData Source:=Sheets("Query D for
Dubai").Range( _
        myRange), PlotBy:=xlRows

        End If

On Error Resume Next
Kill "c:\data\tempdata.txt"
End Sub

Sun, 06 Mar 2005 18:40:01 GMT  
 [ 1 post ] 

 Relevant Pages 

1. How do I select a constant time range from a variable time range using VBA

2. HELP with dynamic range chart in vba : excel 2000

3. VBA for Excel; Getting ranges from AutoFilter

4. Transferspreadsheet method and named ranges in Excel97

5. Problems while getting properties of Document.Range - Object

6. Word VBA question re: Range objects

7. VBA: the Range object, user-def'd functions, and Excel

8. Need to Redefine Range to include Additional Ranges

9. Very simple Range question - beggining the range on 3rd page onwards

10. Crystal Reports 8.5 date range parameter field - record selection that includes null date range

11. MS Chart Value Range

12. Charting time range


Powered by phpBB® Forum Software