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

VBA Formatieren von Diagramme

Forumthread: VBA Formatieren von Diagramme

VBA Formatieren von Diagramme
11.10.2002 17: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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: VBA Formatieren von Diagramme
11.10.2002 17: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 18: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

Anzeige
Re: VBA Formatieren von Diagramme
11.10.2002 19: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 21: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 22: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

Anzeige
Re: VBA Formatieren von Diagramme
14.10.2002 09: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

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

Anzeige

Forumthreads zu verwandten Themen

Speichern in VBA Schlaufe funktioniert nicht
Philipp


Hallo ich habe ein problem beim speichern von files in einer schlaufe.
Genauer nicht ich habe das problem sondern unser offshore team in polen. Bei mir lāuft das makro problemlos durch. Am pfad kann es meiner meinung nach nicht liegen da dieser angepasst werden kann und auf einen share...
17.05.2017 12:01:35
Thread-ID: 1558793
1 Beitrag
Outllook - Excel nur nach Zurücksetzten möglich
Markus

Guten Abend zusammnen,
ich bin gerade dabei ein Addin für Outlook zu schreiben. Bevor ich das ganze in Visual Studio mache, schreib ich erst einmal den ganzen Code in der Outlook VBA Umgebung.
Ich komme momentan am folgenden Problem nicht vorbei.
Mein Code exportiert die selektierte...
12.01.2014 00:47:32
Thread-ID: 1344905
3 Beiträge
Makro-Aufzeichnung als VBA erweitern
Franz

Hallo Exceexperten
nach vielen Versuchen habe ich es als Neuling geschaftt, ein Makro aufzuzeichnen und für dieses Abreibtsblatt ablaufen zu lassen.
Wie muss ich das Makro erweitern / verfeinern, damit ich alle neuen Tabellen, die den gleichen Aufbau, aber unterschiedliche Zeilenanzahlen...
11.05.2003 14:27:33
Thread-ID: 254732
3 Beiträge
Excelmakros
Jochen

hallo,
ich bekomme immer diese fehlermeldung:
the item with the specified name wasn't found
kann jemand damit was anfangen?folgende stelle wird mir im VBA code angezeigt:
ActiveSheet.Shapes("Chart9").IncrementLeft -175.2folgendes hab ich gemacht: ich habe ein makro entworfen, welche...
02.08.2002 22:44:11
Thread-ID: 144309
7 Beiträge
diagramme per makro erstellen
Andrej

Hallo zusammen
leider kenn ich mich diagrammen gar nicht aus. ich habe mir das makro aufgezeuchnet. wie kann ich es dann so modifizieren, dass ich es normal starten kann. wenn ich das über vba laufen lasse, kommt eine fehlermeldung.
hier der code:
Sub dia()

Charts.Add
13.10.2004 16:41:35
Thread-ID: 499939
2 Beiträge
Anzeige
sporadischer Fehler
Stoneguard

Manchmal bekomme ich folgende Fehlermeldung :
Run-time error '-2147352571 (80020005)'
Type mismatch.
Leider bekomme ich in Excel keine Fehlerbeschreibung angeboten.
Kann mir jemand mitteilen, wo eventuell das Problem liegen kann,
denn meistens funktioniert mein VBA-Code einwandfr...
08.10.2002 12:51:21
Thread-ID: 167180
1 Beitrag
Bereichsbezeichnung und externe Daten
JuleH

Habe 2 Probleme, die ich einfach mal zusammenfasse.
Ich denke, wenn jemand das eine Problem lösen kann, kann er sicher auch das andere lösen :)
1. Ich habe für jedes Tabellenblatt in meiner Excel-Datei einen Code in VBA programmiert mit dem nach einer Tabellenblattänderung die Bereichsk...
15.09.2010 13:04:07
Thread-ID: 1177648
2 Beiträge
Selection_Change Target Objekt nicht verfügbar
Andre

Hallo zusammen.
Ich habe ein bei einem Worksheet Selection_Change Event ein Verhalten, das ich mir nicht erklären kann.
Auf einem Worksheet habe ich 2 übereinander liegende Tabellen. Die untere Tabelle wird mittels WebAbfrage befüllt. Die obere Tabelle möchte ich via VBA bearbeiten.
...
14.02.2019 12:28:58
Thread-ID: 1675535
11 Beiträge
Vereinfachung von VBA-Code, ohne select...
VBA-Code,

Hallo,
Ich habe eine grosse CASE-Anweisung in einem Makro, das angesprochen wird, wenn in einem pulldownmenu eine auswahl gemacht wird.Dabei wird das listenfeld eines zweiten pulldownmenus beinflusst.
Da ich mir selber Excel und VBA beibringe, komme ich manchmal nicht auf sehr gute lösung...
01.06.2005 11:01:19
Thread-ID: 618365
1 Beitrag
Sortierung
René

Hallo Leute,
kennt jemand von Euch eine Methode, wie ich beliebig viele
Spalten sortieren kann mit VBA.
Unter Daten - sortiere habe ich ja nur die Möglichkeit drei
Spalten zu sortieren.
Wenn ich diese Methode per VBA nur anstoße und etwa 10 Spalten entsprechend
übergebe (...
29.04.2005 17:03:16
Thread-ID: 605787
1 Beitrag
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum