---

Hallo zusammen,

wir haben unterschiedliche Biegemaschinen (Gesenkbiegepressen, Schwenkbiegemaschinen ...) für die Blechbearbeitung  im Einsatz.

Ich möchte gerne per VBA den K-Faktor bei Erzeugung der Abwicklung einstellen können um somit die Abwicklungsmaße den jeweiligen Maschinen anzupassen.
Wie kann ich per VBA den K-Faktor verändern um anschließend die Abwicklung, dafür gibts bereits ein VBA-Makro, zu erzeugen.

Hoffe, jemand weiß Rat..

Gruss Heiner

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

---

Hallo

Ich vermute euer Abwicklungsmakro hat einen eigenen Button, um es aufzurufen. Ihr müßtet euer Makro also um eine Form erweitern, die die verfügbaren Stile auflistet und nach Wahl des Stiles, diesen aktiviert und dann euer Abwicklungsmakro aufruft.

Code:

---

Dim oApp As Application
Set oApp = ThisApplication

'Zugriff auf die verfügbaren Stile
Dim oStyles as SheetMetalStyles
Set oStyles=oApp.ActiveDocument.ComponentDefinition.SheetMetalStyles

'Setzen des gewählten Stiles
Dim oStyle As SheetMetalStyle
Set oStyle = oApp.ActiveDocument.ComponentDefinition.SheetMetalStyles.Item("Name des Stiles aus der Auswahl")

'und diesen auch aktivieren, damit er verwendet wird.
Call oStyle.Activate

---

Gib mal in der Entwicklerhilfesuche "Forms" ein, dann findest du auch ein Beispiel, wie man eine Form erstellt.

------------------
MfG
RK

[Diese Nachricht wurde von rkauskh am 21. Dez. 2009 editiert.]

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

---

Hallo Heiner,

rein aus Interesse, was macht dieses Makro denn alles?

Zitat:

---

Original erstellt von hstakkabo:
um anschließend die Abwicklung, dafür gibts bereits ein VBA-Makro, zu erzeugen.

---

Grüße Andy

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