---

Bild1.gif Bild2.gif

Hi Zusammen,

ich habe ein VBA Makro geschrieben, dass mir von Rohrbauteilen die Umfangswerte über die Länge des Rohres ermittelt und in einem Graphen in Excel darstellt (s. Bild1).

Jetzt möchte ich folgendes in das Makro integrieren:
Nachdem die Analyse gelaufen ist, und die Excel Tabelle erstellt wurde, kann ich optional eine Userform öffnen, die einen Schieberegler enthält. Über diesen Schieberegler möchte ich die Schnittebene für die Umfangsmessung entlang des Rohrs verschieben können. Das allein ist soweit kein Problem. Ich möchte allerdings gleichzeitig die rote gestrichelte Vertikallinie in der Excel Datei an die entsprechende Position mitschieben (um kritische Stellen visuell anzufahren).
Auch das ist grundsätzlich kein Problem, wenn ich über Catia auf die Excel Datei zugreife.
Genau das möchte ich aber vermeiden. Jetzt die Frage:
Gibt es eine Möglichkeit, einen solchen Graphen in Catia zu erzeugen und in Echtzeit zu bearbeiten (Vertikallinie verschieben) ?! Vom Prinzip kommt es der Darstellung bei der Erzeugung eines Laws sehr nahe (Bild2). Frage ist nur, lässt sich so etwas mit VBA darstellen ...

Ich hoffe, ich habe mich verständlich ausgedrückt :-)

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

---

Hallo Julenk0rt,

habe mal ein bisschen herum gespielt und etwas gefunden, was deiner Anforderung entsprechen könnte.

So bin ich vorgegangen:

- Userform erstellt und eine Scrollbar (dein Schieberegler) und zwei Bilder (Graph als Bild und rote Linie als Bild)
- In der Scrollbar habe ich dann das Bild mit der Linie anhand des Wertes verschoben

Das hat bei mir so wunderbar funktioniert.

Haken bei der Sache:
- Linienbild muss von Größe und Position sauber definiert sein
- Graph sollte sich nicht ändern. Wenn doch, dann muss das Bild ausgetauscht warden.

Mein einfacher Code für das Verschieben hat so ausgesehen:

Code:

---

Private Sub ScrollBar1_Change()

Image2.Left = ScrollBar1.Value

End Sub

---

Hoffe ich konnte dir einen Denkanstoß geben oder helfen!

Gruß
Diesaster

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