Salve,
sapete se esiste un sistema per inserire un file wmf
in un nuovo documento Word utilizzando i comandi ole ?
Grazie.
Marco Turco
Marco Turco
SOFTWARE XP LLP
Salve,
sapete se esiste un sistema per inserire un file wmf
in un nuovo documento Word utilizzando i comandi ole ?
Grazie.
Marco Turco
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 NILFUNCTION 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 NILGrazie.
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
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