In diesem Fall ist die aktive Arbeitsmappe diejenige, die das Add-In aufruft, während die ThisWorkbook -Eigenschaft die Add-In-Arbeitsmappe zurückgibt. Wenn Sie ein Add-In aus Ihrem Visual Basic Code erstellen, sollten Sie die ThisWorkbook-Eigenschaft verwenden, um alle Anweisungen zu qualifizieren, die für die Arbeitsmappe ausgeführt werden müssen, die Sie in das Add-In kompilieren. Beispiel Verwenden Sie Arbeitsmappen ( Index), wobei Index der Arbeitsmappenname oder die Indexnummer ist, um ein einzelnes Workbook -Objekt zurückzugeben. Im folgenden Beispiel wird die erste Arbeitsmappe aktiviert. Workbooks(1). Entwicklung von Programmen in Excel, Excel VBA Programmierung: Lager, Personal, Datenbank, Spiele. Activate Die Indexnummer gibt die Reihenfolge an, in der die Arbeitsmappen geöffnet oder erstellt wurden. Workbooks(1) ist die zuerst erstellte Arbeitsmappe, Workbooks() die zuletzt erstellte. Durch das Aktivieren einer Arbeitsmappe wird ihre Indexnummer nicht geändert. Alle Arbeitsmappen sind in der Indexanzahl enthalten, auch wenn sie ausgeblendet sind. Die Name-Eigenschaft gibt den Arbeitsmappennamen zurück.
tSourceData _ Source:=Sheets("Tabelle1")("$B$4:$C$15"), PlotBy:=xlColumns Im nächsten Schritt ist anzugeben, wo denn das Diagramm erscheinen soll. ActiveChart. Location Where:=xlLocationAsObject Name:="Tabelle1" "xlChart. Location" spezifiziert den Ort der Hinterlegung und kann wie folgt besetzt werden: xlLocationAsNewSheet (neues Diagrammblatt) xlLocationAsObject (im Arbeitsblatt als Objekt) xlLocationAutomatic (automatische Positionierung) Jetzt kannst Du noch entscheiden, ob dem Diagramm eine Legende hinzugefügt werden soll oder nicht. Wenn ja, dann schreibe: ActiveChart. Diagramm im Excel automatisiert via VBA erstellen lassen - Visual Basic for Applications (VBA) - VB-Paradise 2.0 – Die große Visual-Basic- und .NET-Community. HasLegend=True Wenn nein, dann schreibe: ActiveChart. HasLegend=False Für das Beispiel wurde False gewählt. Schließe das Makro mit End Sub ab. Das vollständige Makro lautet: artType = xlColumnClustered tSourceData Source:=Sheets("Tabelle1")("$B$4:$C$15"), PlotBy:=xlColumns ActiveChart. Location Where:=xlLocationAsObject, Name:="Tabelle1″ ActiveChart. HasLegend = False Nun lass das programmierte Makro ausführen. Setze den Cursor im Editor in den Code, gehe dann auf Ausführen und klicke "Sub/Userform ausführen" an.
Wenn der Fehler wieder kommt ändere dann den hinteren Teil in... N83.... Wenn der Fehler wieder kommt liegt es nicht an der Schleife.
Autor: Peter Haserodt --- Aus Excel VBA - Gruppe: Häufige Fragen Diagramm (1) Datenquelle ändern Autor: Peter Haserodt - Erstellt: -- - Letzte Revision: -- Gruppenthema: 3 Folgen 1 2 3 Sie sind in Folge:1 Dynamisch ein Diagramm anpassen Das anpassen einer Datenquelle ist recht einfach. Man muss nur das richtige Objekt ansprechen. Erstellen Sie für das Beispiel folgende Tabelle und erstellen Sie ein Diagramm auf dem Tabellenblatt. Tabelle1 A B C D 1 2 NurSo1a Nurso2a 3 37 69 4 94 79 5 32 14 6 36 37 7 10 96 8 9 10 11 NurSo1b Nurso2b 12 37 69 13 94 79 14 32 14 15 36 37 16 10 96 17 Ziel ist es nun, das Diagramm auf den Blauen Bereich anzusetzen. Vba diagramm erstellen access. Erstellen Sie folgenden Code: Public Sub DiagrammQuelleAendern() Dim oBlatt As Worksheet, oDia As ChartObject Set oBlatt = Worksheets( "Tabelle1") With oBlatt Set oDia =. ChartObjects(1) ( "B11:C16") End With End Sub Kurze Anmerkung: Selbstverständlich sind im Beispielcode noch entsprechende Fehlerabfangungen einzubauen aber dies überlasse ich ihnen.
Charts(1) ist das erste Diagramm in der Arbeitsmappe (ganz links); Charts() das letzte (ganz rechts). Alle Diagrammblätter sind in der Nummerierung enthalten, auch dann, wenn sie ausgeblendet sind. Der Name des Diagrammblatts wird auf der Registerkarte "Arbeitsmappe" des Diagramms angezeigt. Verwenden Sie die Name Eigenschaft des ChartObject -Objekts, um den Diagrammnamen festzulegen oder zurückzugeben. Im folgenden Beispiel wird die Farbe von Datenreihe 1 auf Diagrammblatt 1 geändert. Charts(1). SeriesCollection(1) = rgbRed Im folgenden Beispiel wird das Diagramm namens "Sales" ans Ende der aktiven Arbeitsmappe verschoben. Charts("Sales") after:=Sheets() Das Objekt Chart ist ebenfalls ein Member der Sammlung Sheets, die alle Blätter in der Arbeitsmappe enthält (sowohl Diagrammblätter als auch Arbeitsblätter). Verwenden Sie Sheets ( index), wobei index die Blattindexnummer oder der Blattindexname ist, um ein einzelnes Blatt zurückzugeben. Online - Excel Programmierung VBA Makro: Diagramm (1) Datenquelle ändern. Wenn ein Diagramm das aktive Objekt ist, können Sie mithilfe der Eigenschaft ActiveChart darauf verweisen.
Autor: Peter Haserodt --- Aus Excel VBA - Gruppe: Häufige Fragen Diagramm (2) Als Gif Exportieren Autor: Peter Haserodt - Erstellt: -- - Letzte Revision: -- Gruppenthema: 3 Folgen 1 2 3 Sie sind in Folge:2 Diagramm als Gif exportieren - manchmal braucht man es Ein kurzes Beispiel, wie man ein Chartobject exportiert. Erstellen Sie eine Mappe und speichern Sie diese. Vba diagramm erstellen 1. Erstellen Sie dann im Blatt Tabelle1 ein Diagramm. Im folgenden Code sind keine Fehlerabfangungen, die müssen Sie selbst noch einbauen. Ist nur als Beispiel für den ChartExport Public Sub DiagrammAlsGif() Dim oBlatt As Worksheet, oDia As ChartObject Set oBlatt = Worksheets( "Tabelle1") With oBlatt Set oDia =. ChartObjects(1) ' Arbeitsmappe muss schon mal gespeichert sein, wegen Pfad & "\", "GIF" End With End Sub Weitere Artikel der Gruppe: Häufige Fragen Aus Excel VBA Nach oben