---

BMPSpeichern.txt

Hallo,

ich möchte von einer Zeichnung per Makro eine Bitmap erstellen und, wenn dies im Querformat liegt, 90° drehen. Was ich bis jetzt an Programmcode habe, seht ihr im Anhang. Wie ihr seht liegt das Problem "nur" beim Drehen.

------------------
Gruß Wilfried 

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

---

Hallo,
eventuell hilft das weiter, ich weis nicht warum um 90° gedreht werden soll bei einem Bilschirmabdruck einer *.idw
Hiermit kann man die Höhe und Breite des Bitmaps festlegen.

Sub Save_bitmap()

Dim oApplication As Inventor.Application
Set oApplication = GetObject(, "Inventor.Application")
Dim myDoc As Document
Set myDoc = oApplication.ActiveDocument

Dim owidth As Long
Dim oheight As Long
Dim oFullFileName As String

owidth = 1000
oheight = 500
oFullFileName1 = "C:\test-bmp-01.bmp"

'MsgBox myDoc.Views.Count

Call myDoc.Views.Item(1).SaveAsBitmap(oFullFileName1, owidth, oheight)

End Sub

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

---

Hallo VOSTA1,

vielen Dank für deine schnelle Antwort. Leider hilft es nicht weiter.

Das Drehen brauche ich, um die Bitmaps immer im Hochformat zu erhalten. Diese benutzten wir weiter für Bestellzeichnungen in unserem Warenwirtschaftsprogramm.

------------------
Gruß Wilfried  

[Diese Nachricht wurde von Fan-ME10 am 26. Jul. 2005 editiert.]

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

---

Hallo nochmal Vosta1,

ich bin erst jetzt wieder auf deinen Vorschlag zurückgekommen. Ich habe ein VB-Programm gefunden, um die Bitmap zu drehen.

Jetzt noch eine abschliessende Frage: Kann man auch eine nur schwarz/weiß Bitmap speichern?

------------------
Gruß Wilfried

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