Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Mabuse am 14.01.09 - 13:32:52
-
Hallo!
Ich habe einen Button mit folgendem Code verbunden:
Sub Click(Source As Button)
Dim msApp As Variant
Set msApp = CreateObject("Powerpoint.application")
msApp.visible=True
msApp.presentations.open "L:\Marketing\Headline.ppt", True
End Sub
Das Ganze funktioniert einwandfrei. Kennt jemand eine Variante, in der ich BMP, TIF oder anderen Graphiken auf diese Weise einbinden kann? Leider habe ich bisher kein passendes OLE-Objekt gefunden. Excel, Word und Access sind kein Problem. Gibt es soetwas für MSPAINT oder den Office Picture-Manager?
Vielen Dank im voraus für Eure Hilfe!
-
Starte die Anwendung doch über Shell
Examples: Shell function
The following example is specific to Windows:
' Start the Windows Calculator as a normal (not minimized)
' window with focus.
Dim result As Integer
result = Shell("CALC.EXE", 1)
-
Hallo BigWim,
danke für die schnelle Antwort. Ich habe nur ein Beispielpfad angegeben. In Wirklichkeit sind dort noch Leerzeichen. Wenn ich im Shellbefehl z.B. mspaint.exe und den Datenpfad mit den Leerzeichen angeben will, funktioniert es nicht. Ich habe es schon in vielen Kombinationen von Anführungszeichen ausgetestet - ohne Erfolg.
Viele Grüsse
-
Na dann gib den Pfad ohne Leerzeichen in der ~ Notation an
C:\Progra~1\...
-
Wenn ich im Shellbefehl z.B. mspaint.exe und den Datenpfad mit den Leerzeichen angeben will, funktioniert es nicht
Bau den Aufruf in einer Variable zusammen. Zum Beispiel
MyAufruf = {"c:\pr o gra m m e\mspaint.exe" "c:\eigene Bilder\bild1.bmp"}
result = Shell(MyAufruf, 1)
Das muss gehen.