Hallo zusammen
Ich mache eine Vorschau der ersten Seite einer Presentation als Image. Dies habe ich für Word, Excel und PowerPont gemacht. Sie funktionieran auch. Leider ist es aber so, dass PowerPoint sichtbar wird. Ich möchte PowerPont aber auch unsichtbar
haben, wie es bei Word und Excel ist.
Hier mein Code:
Friend Shared Function Vorschau(ByVal fileName As String, ByVal handle As IntPtr) As Image
Dim image As Image = Nothing
Try
Dim application As New Interop.PowerPoint.Application
Dim document As Interop.PowerPoint.Presentation = application.Presentations.Open(fileName)
Try
Const CF_ENHMETAFILE As Integer = 14
application.ActivePresentation.Slides(1).Select()
application.ActiveWindow.Selection.Copy()
Dim ip As IntPtr
Dim metaFile As Metafile
Dim bRet As Boolean = Generell.ClipboardAPI.OpenClipboard(handle)
If bRet Then
bRet = Generell.ClipboardAPI.IsClipboardFormatAvailable(CF_ENHMETAFILE) <> 0
End If
If bRet Then
ip = Generell.ClipboardAPI.GetClipboardData(CF_ENHMETAFILE)
End If
If Not IntPtr.Zero.Equals(ip) Then
metaFile = New System.Drawing.Imaging.Metafile(ip, True)
Generell.ClipboardAPI.CloseClipboard()
image = metaFile
End If
Finally
application.Quit()
End Try
Catch ex As Exception
'nichts tun
End Try
Return image
End Function
Die Zeile " Dim document As Interop.PowerPoint.Presentation = application.Presentations.Open(fileName)" öffnet leider PowerPoint sichtbar. applikation.Visible = false gibt es nicht und application.Visible = Core.MsoTriState.msoFalse bringt ein Fehler.
Wie mache ich es also, dass PowerPont nicht sichtbar wird. Word und Excel bleibt ja auch unsichtbar, ausser man setzt application.Visible = true
Vielen Dank für Eure Hilfe
Gruss Marcel
