Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
788to792
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

diagramm in userform code anpassen

diagramm in userform code anpassen
09.08.2006 11:00:24
achim
Hallo excel freunde
habe freundlicherweise eine tolle hilfestellung von hans herber bezüglich eines digramms in userform bekommen.habe versucht das auf mein problem umzusetzten.leider komme ich nicht so wirklich weiter da mir das vba wissen noch fehlt.
wer kann sich diese beispielsdatei anschauen und den code so anpassen wie die grafik in tabellenblatt "PRÜFUNGSFRAGEN1"
danke
achim h.
https://www.herber.de/bbs/user/35670.xls

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: diagramm in userform code anpassen
09.08.2006 12:30:58
Alwin
Hallo,
ich habe das mal angeschaut, dabei ist mir aufgefallen, dass der Datenbereich der im Diagramm ausgegeben werden soll nicht stimmte! (siehe unten)
nachdem ich es korrigiert hatte funktionierte es!
Option Explicit

Sub DiagrammInUserForm()
Dim cht As Chart
Dim sFile As String
sFile = Application.Path & "\test.gif"
Set cht = Charts.Add
Application.ScreenUpdating = False
cht.SetSourceData _
Source:=Sheets("Prüfungsbogen1").Range("G8:AA9"), _
PlotBy:=xlRows
cht.Export sFile
With frmChart.imgChart
.Picture = LoadPicture(sFile)
End With
frmChart.Show
Kill sFile
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Anzeige
AW: diagramm in userform code anpassen
09.08.2006 12:50:07
achim
Hallo Alwin
danke für die rückmeldung
Ganz viel Wald und man sieht nicht den Baum!!
eine zusatzfrage bitte!!
ich möchte das die säule nicht blau sondern rot
und die achse nicht 0 0,2 usw.
hast du eine idee wie man das ändern kann?
danke
achim h.
AW: diagramm in userform code anpassen
10.08.2006 12:17:21
Alwin
Hallo Achim,
ich konnte leider nur die Sache mit der Farbe herausfinden (auch übers Archiv):
(Erweiter Deinen Code einfach um die mittlere Zeile)
PlotBy:=xlRows
cht.SeriesCollection(1).Interior.ColorIndex = 3
cht.Export sFile
Danke für deine Mühe
10.08.2006 13:28:08
achim
danke

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige