inserimento forms Image

Hai un problema con Excel?

Nuova discussione

inserimento forms Image
di Salvo18 (utente non iscritto) data: 06/07/2015 15:30:33
ciao
da excel apro e modifico un file word. Provo ad inseire una forms Image tuttavia mi da errore sul caricamento in essa dell'immagine voluto. L'errore dice: Metodo 'Picture' dell'oggetto 'IImage' non riuscito. come mai? grazie per l'aiuto

Dim Calc
Dim ObjWord As Word.Application
Dim wmodulo As Word.Document
Dim colshapes, objshape
Set ObjWord = CreateObject("Word.Application")

Dim filepath As String
filepath = "Q:ComuneRC PROFESSIONALEPORTAFOGLIO" & Sheets("QUOTAZIONE").ComboBox4.text & "" & Sheets("QUOTAZIONE").Range("f4").value & ""

Set wmodulo = ObjWord.Documents.Open(filepath)

Set Calc = ActiveDocument.Shapes.AddOLEControl(ClassType:="Forms.Image.1",0,0,100,100)
With Calc.OLEFormat.Object
.Picture = LoadPicture("C:Userssalvatore.marcheseDesktopimg1Salvo.jpg")
End With

di Vecchio Frac data: 06/07/2015 15:34:51
Anzitutto questo:
filepath = "Q:ComuneRC PROFESSIONALEPORTAFOGLIO" & Sheets("QUOTAZIONE").ComboBox4.text & "" & Sheets("QUOTAZIONE").Range("f4").value & "" Set wmodulo = ObjWord.Documents.Open(filepath)

...è corretto? cerchi di aprire un documento Word che termina con uno slash?

Inoltre, dicci che errore riscontri (numero, descrizione) e su che punto del codice l'esecuzione si interrompe.
L'immagine Salvo.jpg è disponibile nel percorso indicato? l'ole control è disponibile nel pc in uso?
di Vecchio Frac data: 06/07/2015 15:36:52
A latere, non indicare il nome opzionale del parametro ClassType dato che ometti l'ultimo parametro opzionale Anchor.
Set Calc = ActiveDocument.Shapes.AddOLEControl("Forms.Image.1",0,0,100,100)
di Salvo18 (utente non iscritto) data: 06/07/2015 15:43:46
ciao Vecchio Frac,
grazie per la risposta. Lo slash finale mi era sfuggito, l'immagine è disponibie e l'ole control anche (se tolgo la riga incriminata crea nel word il controlo). L'errore è:
Errore di run-time '2147418113(8000ffff): Metodo 'Picture' dell'oggetto 'IImage' non riuscito.
Grazie
di Vecchio Frac data: 06/07/2015 16:06:43
Uhm, è ben strano, dalle prove che ho fatto funziona tutto correttamente (con file bmp e file jpg, con i file png invece si arrabbia e non vuole saperne).
Quando è grande l'immagine jpg che cerchi di caricare?
di Salvo18 (utente non iscritto) data: 06/07/2015 16:20:25
209 kb
di Vecchio Frac data: 06/07/2015 16:37:28
C'è qualcosa che mi sfugge.
Le prove fatte (anche con un file di 209KB e con un file di oltre 2MB) hanno esito positivo.
Bisognerebbe googlare per cercare qualcosa di più su questo errore.
di mikipaldj data: 06/07/2015 16:58:55
forse l' errore è qui:
filepath = "Q:ComuneRC PROFESSIONALEPORTAFOGLIO" & Sheets("QUOTAZIONE").ComboBox4.text & "" & Sheets("QUOTAZIONE").Range("f4").value & ""
Di regola il percorso dovrebbe iniziare con C: , non con Q:

Ripeto non ne sono sicuro
di Salvo18 (utente non iscritto) data: 06/07/2015 17:31:27
ciao mikipaldj grazie per la risposta ma non penso dipende da quello. L'errore è proprio sulla proprietà .picture del forms images creato.
di Vecchio Frac data: 06/07/2015 18:54:22
Q: è soltanto un drive mappato. Io ho fatto prove sua una cartella di test chiamata J:.
No, il problema è da un'altra parte ma non potendo replicare l'errore perchè sul mio sistema funziona senza problemi, può dipendere da molte cose (riferimenti mancanti o registrazione della dll da rifare).
Se ho un attimo mi documento ma in verità il tempo è sempre molto poco.
Il consiglio di googlare era per Salvo :)

Vuoi Approfondire?