Thema Datum  Von Nutzer Rating
Antwort
12.10.2016 17:09:25 Hans
NotSolved
Blau Charts automatisch erstellen
 12.10.2016 19:30:22 Gast91627
NotSolved
13.10.2016 09:23:42 Gast91472
NotSolved
13.10.2016 09:53:47 Gast53702
NotSolved

Ansicht des Beitrags:
Von:
Gast91627		 Datum:
12.10.2016 19:30:22		 Views:
697		 Rating:
     
Antwort:
  Ja
Thema:
Charts automatisch erstellen

zum Bleistift 500 Charts ???? oder Schleife wie?

Option Explicit

Sub ausdemForum()
   ActiveCell.Range("A1:A2").Select
   Range(Selection, Selection.End(xlToRight)).Select
   ActiveSheet.Shapes.AddChart2(251, xlPie).Select
   ActiveChart.SetSourceData Source:=Range("Sheet1!$A$30:$F$31")
   ActiveCell.Offset(2, 0).Range("A1:A2").Select
   Range(Selection, Selection.End(xlToRight)).Select
End Sub

Sub Schleife()
Dim x As Long
Dim oShp As Shape
Dim c As Range

'zum Test alle löschen
For Each oShp In Sheets("sheet1").Shapes
   oShp.Delete
Next oShp

   With Sheets("Sheet1")
      For x = 2 To .Cells(2, 1).End(xlDown).Row Step 2
         Set c = .Range(.Cells(x, 1), .Cells(x, 1).End(xlToRight).Offset(1))
         Set oShp = .Shapes.AddChart2(251, xlPie)
         With oShp
            'hier spezielle Eigenschaften
            .Name = c.Cells(1).Text & Format(c.EntireRow.Row, "00000")
            .Top = c.Cells(1).Top
            .Left = c.Cells(c.Cells.Count).Left + 100
            With .Chart
               'hier spezielle Eigenschaften
               .SetSourceData Source:=Range(c.Address)
            End With
         End With
      Next x
   End With

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
12.10.2016 17:09:25 Hans
NotSolved
Blau Charts automatisch erstellen
 12.10.2016 19:30:22 Gast91627
NotSolved
13.10.2016 09:23:42 Gast91472
NotSolved
13.10.2016 09:53:47 Gast53702
NotSolved