Page 1 of 1
Inserire una immagine wmf in un documento word via ole
Posted: Mon Jan 09, 2006 2:12 pm
by Marco Turco
Salve,
sapete se esiste un sistema per inserire un file wmf
in un nuovo documento Word utilizzando i comandi ole ?
Grazie.
Marco Turco
Re: Inserire una immagine wmf in un documento word via ole
Posted: Mon Jan 09, 2006 6:57 pm
by Enrico Maria Giordano
Stranamente questo funziona
Code: Select all | Expand
FUNCTION MAIN()
LOCAL oExcel
oExcel = CreateObject( "Excel.Application" )
oExcel:WorkBooks:Add()
oExcel:ActiveSheet:Shapes:AddPicture( "C:\XHARBOUR\INVOICE.WMF", .F., .T., 0, 0, 500, 1000 )
oExcel:Visible = .T.
RETURN NIL
ma questo no
Code: Select all | Expand
FUNCTION MAIN()
LOCAL oWord
oWord = CreateObject( "Word.Application" )
oWord:Documents:Add()
oWord:ActiveDocument:Shapes:AddPicture( "C:\XHARBOUR\INVOICE.WMF", .F., .T., 0, 0, 500, 1000 )
oWord:Visible = .T.
RETURN NIL
e non capisco perché. Magari a te viene in mente qualcosa.
EMG
Posted: Tue Jan 10, 2006 2:20 pm
by Guest
Grazie.
Mi sono scaricato l'help VBA e sto facendo delle prove.
A proposito, tu utilizzi InnoSetup per le tue installazioni ?
Ho un problema relativo al richiamo di una funzione di una DLL durante il setup di installazione di una mia applicazione.
In pratica devo convertire la chiamata:
DLL32 FUNCTION RTFDRIVERINIT(cPrinterName as LPSTR) AS LONG;
PASCAL FROM "RtfDriverInit" LIB cdfintflib
in codice compatibile InnoSetup che dovrebbe essere:
procedure MyDllFunc(cPrnName: String);
external
'rtfdriverinit@cdintf.dll stdcall';
tuttavia mi appare l'errore "Cannot Import DLL" durante il setup.
Qualche idea ? Ho anche richiesto lumi nel newsgroup di innosetup.code ma senza avere avuto ancora risposta.
Marco
Posted: Tue Jan 10, 2006 5:52 pm
by Enrico Maria Giordano
Non uso InnoSetup ma noto nel tuo codice che non hai rispettato le maiuscole/minuscole del nome della funzione. Può essere quello? So che Win32 è case sensitive per quanto riguarda i nomi di funzioni nelle DLL.
EMG