title image


Smiley Re: Mit VBA alle Diagramme durchlaufen
Hi Tobi,



mit diesem Code werden in die Tabelle1 eingebettete Diagrammobjekte überprüft und wenn nicht vorhanden, ein neues eingefügt. Das lässt sich aber auch mit Diagrammblättern machen. Datenquelle, Diagrammtyp, Diagrammname, Tabellenname und Arbeitsmappenname musst du halt anpassen



Sub Makro1()

Dim inDiagramme As Integer

Dim strDiagramm As String

With ActiveSheet

For inDiagramme = 1 To .ChartObjects.Count

strDiagramm = "Tabelle1 Diagramm " & inDiagramme

.ChartObjects(inDiagramme).Activate

MsgBox ActiveChart.Name

If ActiveChart.Name strDiagramm Then

Charts.Add

With ActiveChart

.ChartType = xlColumnClustered

.SetSourceData Source:=Sheets("Tabelle1").Range("A1:A6"), PlotBy _

:=xlColumns

.Location Where:=xlLocationAsObject, Name:="Tabelle1"

End With

End If

ActiveWindow.Visible = False

Windows("Mappe2.xls").Activate

Next inDiagramme

End With

End Sub

GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: