Inserire una immagine wmf in un documento word via ole

[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

[Enrico Maria Giordano]

Stranamente questo funziona

Code: Select all

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

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

[Guest]

Grazie.
Mi _ 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

[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