Inserire Forms Image

Question

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:\Comune\RC PROFESSIONALE\PORTAFOGLIO" & 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:\Users\salvatore.marchese\Desktop\img1\Salvo.jpg")

End With

Answer 1

volevo inserire in word una forms.Image con delle dimensioni predefinite e caricarci dentro di volta in volta delle immagini che ho già presenti sul foglio excel. Con la funzione addpicture devo conosce il percorso del file (filename)...

Grazie

ciao

Salvatore

Answer 2

Ciao Salvatore,

non capisco. Di quale forms parli? Per inserire una immagine nel testo, o nell'intestazione, non serve un oggetto forms (a cosa ti riferisci, a uno UserForm?).

Considera piuttosto i metodi:

Function AddPicture(FileName As String, [LinkToFile], [SaveWithDocument], [Left], [Top], [Width], [Height], [Anchor]) As Shape

    Membro di Word.Shapes

oppure meglio:

Function AddPicture(FileName As String, [LinkToFile], [SaveWithDocument], [Range]) As InlineShape

    Membro di Word.InlineShapes

Answer 3

ciao Maurizio,

devo inserire un form per inserire l'immagine nell'intestazione, dimensionandola secondo le dimensioni della forms e facendo lo stretch con le proprietà della forms.image.

grz

Salvatore

Answer 4

Ciao SalvatoreMarchese18,

ci hai spiegato cosa non funziona ma non cosa vuoi ottenere. Per esempio, perché usi un oggetto Forms.Image? A quale scopo?

Devi solo inserire una immagine in un documento Word o devi fare altro?

Answer 5

Errore di run-time '2147418113(8000ffff): Metodo 'Picture' dell'oggetto 'IImage' non riuscito.