Domino 9 und frühere Versionen > ND9: Entwicklung
Excel-Netzdiagramm mit LotusScript erstellen
Peter Klett:
Wenn ich Konstante von Excel oder Word nicht kenne, baue ich in Excel/Word ein Macro mit
Msgbox Konstante
und starte das Macro, dann wird mir der Wert ausgegeben.
LuckyNoob:
Hallo Peter Klett,
erstmal Danke für den Tipp. Am Anfang hab ich mich über diese Info, sagen wir mal, "gewundert". Aber nach einer kurzen Recherche bezüglich Excel Makros habe ich mein aktuelles Diagramm mithilfe einer Makroaufzeichnung bearbeitet und mir im Anschluss den Code angeschaut.
Danke für den Tipp. Das hat mich gleich mal im LS - VBA - Excel Verständnis weit voran getrieben.
Es funktioniert! Für die Achsenbezeichnung habe ich einfach die genutzte Range verändert. Im Anschluss daran konnte ich durch die kurze Ausgabe von xlValue durch deinen Tipp sehen, dass der Wert 2 ist. Bezüglich des Links mit dem Werten... wissen ist gut, lieber selber noch einmal überprüfen ist besser ::)
Hier der Code von meiner Anpassung:
--- Code: ---chartObject.setSourceData(xlSheet.Range(xlSheet.Cells(4,1), xlSheet.Cells(5,4)))
With chartObject
.HasTitle = True
.ChartTitle.Characters.Text = "Netzdiagramm"
.Axes(2).MaximumScale = 140
.Axes(2).MajorUnit = 20
.Axes(2).MinorUnit = 4
.Axes(2).MinimumScale = 0
End With
--- Ende Code ---
@jBubbleBoy
--- Zitat ---Welche Excel-Version hast du denn?
--- Ende Zitat ---
Ich habe Excel 2010.
Viele Grüße
LuckyNoob:
Hallo Leute, könnt ihr mir weiterhelfen?
Wie übersetze ich folgenden VBA Code in LotusScript?
Ich möchte ein Diagramm erstellen und zwar auf eine bestimmte Position. Hier ist der VBA Code aus Excel. LS sagt mir beim "Source:=" einen Fehler... -_-
--- Code: ---Range("B9:F9").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Range( _
"'Auswertung der Befragung'!$B$9:$F$9")
--- Ende Code ---
Hier ist mein VBA versuch, ein Diagramm zu verschieben. Also ähnlich wie das hier drüber:
--- Code: ---ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(1).Select
ActiveChart.ChartArea.Select
ActiveChart.Location Where:=xlLocationAsObject, Name:= _
"Auswertung der Befragung"
--- Ende Code ---
Könnt ihr mir helfen?
Viele Grüße
jBubbleBoy:
Schau dir bitte deine vorherigen Beiträge an, hier zeigst du uns wie man Excel-SetSourceData richtig verwendet.
Arbeitsblatt-Referenzen funktionieren in Notes ohne Anführungszeichen.
LuckyNoob:
Da gibt es nichts weiter zu sagen ... :-[
Man bin ich blöde....
Und dabei liegt der Code auch die ganze Zeit vor mir.
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln