In der Microsoft Office-Suite , ist Visual Basic für Applikationen ( VBA) die Programmierung Shell, die fortgeschrittene Benutzer die Möglichkeit gibt, komplexe und automatisierte Dokumente zu erstellen. Einer der komplexen Aufgaben, die Sie in Excel mit VBA tun können ist , um ein Diagramm zu erstellen und binde sie in dem gleichen Arbeitsblatt , auf dem Sie arbeiten. Benutzen Sie den " ChartObject " Objekt in VBA zu erstellen und einbinden eines Diagramms in einem Excel-Arbeitsblatt . Anleitung
1
öffnen Excel 2010 und zeigen die Registerkarte Entwickler , wenn es nicht bereits angezeigt wird . Klicken Sie auf "Datei" und dann auf " Optionen". Klicken Sie auf " Menüband anpassen " auf Bereich Kategorien . Wählen Sie "Entwickler " aus der Liste der wichtigsten Registerkarten und klicken Sie dann auf "OK".
2
Klicken Sie auf das Registerkarte "Entwicklertools" , die jetzt in der Band werden sollte zeigt . Klicken Sie auf " Visual Basic ", um den Visual Basic -Editor zu öffnen .
3
auf dem Arbeitsblatt , in dem Sie das Diagramm aus dem Projekt Schmerzen einbetten Doppelklick . Alle Arbeitsblätter , die derzeit in Ihrem Projekt im Fensterbereich aufgelistet . Der Code für das Arbeitsblatt wird im Code- Fenster zu öffnen. Wenn Sie nicht bereits Code in das Arbeitsblatt hinzugefügt das Code-Fenster leer.
4
Klicken Sie auf "Einfügen " und dann " Vorgehensweise . " Geben Sie einen Namen für das Verfahren im Namen Fenster , lassen Sie alle anderen Optionen die gleichen, und klicken Sie dann auf "OK". Für das Beispiel in diesem Artikel , nennen das Verfahren " embedChart . "
5
Fügen Sie den Code , die ein Diagramm in das Arbeitsblatt einzubetten. Klicken Sie zwischen den " Public Sub ... " und "End Sub " Erklärungen , die jetzt in das Code-Fenster . Sie erhalten den Code für das Verfahren zwischen den beiden Erklärungen hinzuzufügen. Microsoft hat den Code, der ein Diagramm zu erstellen wird und betten es in der aktuellen Tabelle entwickelt. Kopieren Sie diesen Code in Ihre Prozedur oder schreiben Sie Ihre eigene .
"Sub embedChart () Dim
chtNew Wie Chart