XL97: Laufzeitfehler mit Pfad Methode Diagramm ändern

• Sie haben Visual Basic-Code an das SheetActivate-Ereignis des ThisWorkbook-Objekts angehängt. -und-
  
  
• Sie können die FileFormat-Eigenschaft in das SheetActivate-Makro verwenden.

Zum Anfang

Beispiel des Problems

1. Geben Sie die folgenden Werte in eine neue Arbeitsmappe:
   A1: 1
   A2: 2
   
2. Wählen Sie Zellen A1:A2, und klicken Sie im Menü Einfügen auf Diagramm. Klicken Sie Im Dialogfeld Diagramm-Assistenten fertig stellen.
   
   Ein Säulendiagramm wird auf Sheet1 erstellt.
3. Drücken Sie [Alt]+[F11], um den Visual Basic-Editor zu starten.
4. Klicken Sie im Menü Ansicht auf Projektexplorer.
5. Doppelklicken Sie auf das ThisWorkbook-Objekt.
6. Geben Sie den folgenden Code für das SheetActivate-Ereignis in das Modulblatt:

         Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
            y = ThisWorkbook.FileFormat
   
         End Sub
   						

7. Klicken Sie im einfügen auf Modul.
8. Geben Sie in das Modulblatt den folgenden Code:

         Sub Relocate_Chart()
   
            Dim sName As String
            Dim x As Integer
   
            Set ch = Sheet1.ChartObjects(1).Chart
            sName = Sheet1.Name
   
            For x = 1 To 2
               Set ch = ch.Location(xlLocationAsNewSheet)
               Set ch = ch.Location(xlLocationAsObject, sName)
            Next
   
         End Sub
   						

9. Führen Sie die Prozedur Relocate_Chart.
   
   Die im Abschnitt "Problembeschreibung" dieses Artikels beschriebenen Run-Time-Fehlermeldung angezeigt.

Zum Anfang