Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
168to172
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Formatieren von Diagramme

VBA Formatieren von Diagramme
11.10.2002 15:25:45
Steve
Hi Profis,
folgendes Problem: ich versuche per VBA ein Diagramm (genauer Diagrammfläche) zu formatieren. Per Aufzeichung habe ich folgendes Makro erzeugen lassen:
(1) ActiveChart.ChartArea.Select
(2) With Selection.Border
(3) .Weight = xlHairline
(4) .LineStyle = xlNone
(5) End With
(6) Selection.Shadow = False
(7) Selection.Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=1, _
(8) Degree:=0.831357289997711
(9) With Selection
(10) .Fill.Visible = True
(11) .Fill.ForeColor.SchemeColor = 27
(12) End With

In der Zeile (11) bleibt das Programm stehen mit dem Hinweis "Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler"

Hat jemand eine Idee war ich ändern muss, damit es funktioniert?

Grüße
Steve

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: VBA Formatieren von Diagramme
11.10.2002 15:46:57
Herbert
Hallo Steve,
Probiere es mal so:
Den Diagrammnamen mußt allerdings schon anpassen.

Sub diagr_Farbe()
Application.ScreenUpdating = False
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.ChartArea.Select
    With Selection
        .Interior.ColorIndex = 35
        .Border.Weight = xlHairline
        .Border.LineStyle = xlNone
        End With
   ActiveSheet.[A1].Activate
 Application.ScreenUpdating = True
End Sub
     gruß Herbert


Anzeige
Re: VBA Formatieren von Diagramme
11.10.2002 16:19:50
Steve
Hallo Herbert,

vielen Dank für die Hilfe. Dein Listing funktioniert bestens.
Jetzt möchte ich noch anstelle der Hintergrundfarbe (.Interior.ColorIndex = 35)
ein Füllmuster darstellen. Und daran scheitere ich immer noch.
Fogende Zeile bringt mich mittlerweile zur Verzweiflung:

Selection.Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=1, Degree:=0.831357289997711

Hast Du noch eine Idee.

Grüße
Steve

Re: VBA Formatieren von Diagramme
11.10.2002 17:15:32
Herbert
Das funktioniert doch:

Sub diagr_Farbe()
Application.ScreenUpdating = False
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.ChartArea.Select
    With Selection
        .Fill.Visible = True
        .Fill.ForeColor.SchemeColor = 34
        .Border.Weight = xlHairline
        .Border.LineStyle = xlNone
        .Fill.OneColorGradient Style:=msoGradientHorizontal, _
        Variant:=1, Degree:=0.831357289997711
        End With
   ActiveSheet.[A1].Activate
 Application.ScreenUpdating = True
End Sub
     gruß Herbert


Anzeige
Re: VBA Formatieren von Diagramme
11.10.2002 19:57:53
Steve
Hallo Herbert,

vielen Dank für Deine Hilfe. Aber der Fehlerhinweis taucht bei mir immer noch auf. Ich habe es auch unter Excel 2000 versucht. Ebenfalls ohne Erfolg.

Gruß
Steve

Re: VBA Formatieren von Diagramme
11.10.2002 20:53:12
Herbert
hast Du "Chart 2" in "Diagramm 1" oder "Diagramm 2" ...geändert?
ich habe nämlich momentan die englische Version...
gruß Herbert

Re: VBA Formatieren von Diagramme
14.10.2002 07:55:08
Steve
Hallo Herbert,
das eigentliche Problem ist folgende Zeile:

.Fill.OneColorGradient Style:=msoGradientHorizontal, _
Variant:=1, Degree:=0.831357289997711

Hier hängt sich mein Programm immer auf, alle anderen Programmzeilen laufen richtig durch.

Grüße
Steve

Anzeige
Re: VBA Formatieren von Diagramme
14.10.2002 16:31:57
Herbert
Hallo Steve,
Bei mir funktioniert es.
Vielleicht sendest Du mir eine Mustertabelle wo
es nicht funktioniert.
Gruß Herbert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige