Thema Datum  Von Nutzer Rating
Antwort
24.02.2016 12:50:34 Officer_Bierschnitt
NotSolved
24.02.2016 20:04:05 Gast71212
NotSolved
Rot Suchen, Finden, Ändern und Anzeigen
 25.02.2016 10:27:37 Gast8583
NotSolved
25.02.2016 14:20:52 Officer_Bierschnitt
Solved

Ansicht des Beitrags:
Von:
Gast8583		 Datum:
25.02.2016 10:27:37		 Views:
1412		 Rating:
     
Antwort:
  Ja
Thema:
Suchen, Finden, Ändern und Anzeigen

wozu gibt es den Objektkatalog ;)

Option Explicit

Dim oWsh As Excel.Worksheet
Dim oShp As Shape
Dim oChart As Excel.Chart
Dim oObj As Excel.ChartObject

Sub WasIstWo()
Set oWsh = Sheets("Tabelle2")

'alle zeigen
For Each oShp In oWsh.Shapes
   With oShp
      Set oChart = .Chart
         Debug.Print oShp.ID, _
         oShp.Name, _
         oChart.Name, _
         oChart.ChartTitle.Text
   End With
Next oShp

Set oWsh = Nothing
Set oShp = Nothing
Set oChart = Nothing
End Sub

Sub ChartEigenschaften()
Set oWsh = Sheets("Tabelle2")

'gezielt
Set oObj = oWsh.ChartObjects("Diagramm 2")
With oObj
   .Chart.ChartTitle.Text = "Neuer Titel"
   .Chart.SetSourceData Source:=Range("A1:B10")
End With

Set oWsh = Nothing
Set oObj = Nothing
End Sub

Sub Datenbereich()
Set oWsh = Sheets("Tabelle2")

'gezielt
Set oObj = oWsh.ChartObjects("Diagramm 2")
Set oChart = oObj.Chart

Dim intseries
For intseries = 1 To oChart.SeriesCollection.Count
   Debug.Print oChart.SeriesCollection(intseries).Formula
Next intseries

Set oWsh = Nothing
Set oChart = Nothing
Set oObj = Nothing
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.02.2016 12:50:34 Officer_Bierschnitt
NotSolved
24.02.2016 20:04:05 Gast71212
NotSolved
Rot Suchen, Finden, Ändern und Anzeigen
 25.02.2016 10:27:37 Gast8583
NotSolved
25.02.2016 14:20:52 Officer_Bierschnitt
Solved