---

Hallo da draußen,

hab ein kleines Excel Programm geschrieben und wollte fragen, ob es möglich ist eine Gerade bzw Funktionen als Funktionen in ein Diagramm über VBA einzuzeichnen und nicht nur über Zellbereiche.
Oder ist es vielleicht möglich in einer Form ein Diagramm zu erzeugen?

Vielen Dank schon mal und viele Grüße, Christian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Schau Dir mal die Excel Function   

Code:

---

Dim Koordinaten(1 To 16, 1 To 2) As Single    'Matrix für die Punkte definieren
ActiveSheet.Shapes.AddPolyline(Koordinaten).Select

---

an.

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Christian,

auf CAD.de gibt es ein extra Excel Forum.
Da wird dir bei deiner speziellen Frage sicherlich schneller geholfen, weshalb ich deinen Beitrag dort hin verschoben habe.

Wer also Antworten will muss hier hin …

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks API Snippets

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Christian,

Code:

---

Sub DiaErstellen()
    Dim chrDiagramm As Chart
    Dim arrXWerte()
    Dim arrYWerte()
    Dim intZaehler As Integer
    For intZaehler = 1 To 20  '<== Anzahl Werte anpassen
        ReDim Preserve arrXWerte(0 To intZaehler - 1)
        ReDim Preserve arrYWerte(0 To intZaehler - 1)
        arrXWerte(intZaehler - 1) = intZaehler
        arrYWerte(intZaehler - 1) = 1.2 * intZaehler + 2.8  '<== hier deine Funktion
    Next intZaehler
    Set chrDiagramm = ActiveSheet.ChartObjects.Add(50, 50, 500, 350).Chart
    With chrDiagramm
        .ChartType = xlXYScatterLines
        .SeriesCollection.NewSeries
        .SeriesCollection(1).XValues = arrXWerte
        .SeriesCollection(1).Values = arrYWerte
    End With
End Sub

---

Du musst beachten, dass die Arrays immer mit 0 beginnen, deshalb musst du bei der Redimensionierung die Variable intZaehler an deine Bedingungen anpassen. Eventuell musst du für diesen Zähler auch eine extra Variable definieren - er muss auf jeden Fall mit 0 beginnen und in 1er Schritten hochgezählt werden.

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi, danke für eure Antworten...
Beverly, hat genau gepasst, danke!

Grüße Christian B.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP