Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Chart ansprechen

Chart ansprechen
01.08.2003 09:13:54
streuner
Hi!

Hatte vorhin vergessen, was zu erwähnen:/!
Wie kann ich das auf einem Blatt befindliche Chart aktivieren/ansprechen? Ich erzeuge dynamisch charts und loesch diese dann. Jetzt weiß ich nicht mehr genau, wie ich die ansprechen kann!
Ne Idee?

MFG Streuner

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Chart ansprechen
01.08.2003 09:32:44
Ivan


hi Streuner
ein Beispiel!

Option Explicit

Dim myChart As Excel.ChartObject

Sub Irgendwas1()
    
    Set myChart = Sheets("Tabelle1").ChartObjects(1)
    
    ' oder so ...
    
    'If Not ActiveChart Is Nothing Then
        'Set myChart = ActiveChart.Parent
    'End If
    
    ' oder so ;-)
    
    'If Sheets("Tabelle1").ChartObjects.Count > 0 Then
    
        'Dim i As Long
    
        'For i = 1 To Sheets("Tabelle1").ChartObjects.Count
        
            'If Sheets("Tabelle1").ChartObjects(i).Chart.Name = ActiveChart.Name Then
                'Set myChart = Sheets("Tabelle1").ChartObjects(i)
                'Exit For
            'End If
            
        'Next i
    
    'End If
    
End Sub

Sub Irgendwas2()

    If Not myChart Is Nothing Then
    
        'MsgBox myChart.Name
        
        myChart.Select
        myChart.Activate
        
    End If
    
End Sub

gruss
ivan


Anzeige
Super code! funzt klasse! o.T.
01.08.2003 10:31:25
streuner
o.T.


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige