---

HI
Weis jemand zufaellig wie man den Befehl "als Bild speichern..." in einem VB-Programm aufruft?

Thanks

Dieter

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

---

test12.zip

Hallo Dieter,

hier ein VB-Script aus der SE-Newsgroup unter http://bbsnotes.ugs.com/
Da findet man öfter gute Tips zum Programmieren unter SE und VB.

> SaveAsImage is a method of  View in asm, par, psm and pwd or SheetWindow
in
> dft.
>
> ----
> Dim objView As SolidEdgeFramework.View
> Dim objSheetWindow As SolidEdgeDraft.SheetWindow
>
>    Select Case objApp.ActiveDocument.Type
>        Case 1, 3, 4, 6    '.par, .asm, .psm, .pwd
>            Set objView = objApp.ActiveWindow.View
>            objView.SaveAsImage FileName
>
>        Case 2              ' .dft
>            Set objSheetWindow = objApp.ActiveDocument.Windows(1)
>                objSheetWindow.SaveAsImage Filename
>    End Select

Gruss
Detlef Edlich

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