Live-Forum - Die aktuellen Beiträge
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
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

diagramm in userform code anpassen

diagramm in userform code anpassen
10.08.2006 07:21:56
achim
Hallo Excel Freunde
ich habe diesen Code von Herber bekommen.
wer kann diesen code erweitern?
ich möchte das die säule in rot dargestellt wird und die legende nicht gezeigt wird!!!

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

gruß
achim h.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: diagramm in userform code anpassen
10.08.2006 08:47:07
Herbert
hallo achim,

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

gruß Herbert
Anzeige
Danke für die intensive hilfe, klappt
10.08.2006 11:29:45
achim
mfg
achim h.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige