Avatar billede clausn Nybegynder
13. maj 2005 - 11:18 Der er 1 løsning

Tilføj billede til Excel dokument

Hejsa,

Jeg har lavet følg. og det virker meget godt - mit problem er at jeg vil have tilføjet et billede til filen - altså den skal ikke linke til filen, men importere den ligesom hvis man indsætter billedet på normal vis.
Er der nogen derude der har en idé til hvor jeg skal hen?

Hilsen
Claus

Set objXL = wscript.createobject("Excel.application")
objXL.workbooks.add
ObjXL.visible = true

objXL.Cells(1,1).Value = "Overskrift 1"
objXL.Cells(1,2).Value = "Overskrift 2"
objXL.Cells(1,3).Value = "Overskrift 3"
objXL.Cells(1,4).Value = "Overskrift 4"
objXL.Cells(1,5).Value = "Overskrift 5"
objXL.Cells(1,6).Value = "Overskrift 6"

i = 1
j = 0

For i = 2 to 15

objXL.Cells(i,1).Value = "Tekst " & i
objXL.Cells(i,2).Value = "Tekst " & i
objXL.Cells(i,3).Value = "Tekst " & i
objXL.Cells(i,4).Value = "Tekst " & i
objXL.Cells(i,5).Value = "Tekst " & i
objXL.Cells(i,6).Value = "Tekst " & i


'objXL.Cells(2,1).Insert = LoadPicture("G:\Axapta\Ean13\5709262210015.bmp")

Next
Avatar billede clausn Nybegynder
15. august 2005 - 10:49 #1
Lukket...

Fandt denne løsning:

Set mypic = objWS.Pictures.Insert("G:\Ean13\" & arrRecords(2,i) & ".bmp")
mypic.height = 23
mypic.Top = objXL.Worksheets(1).Cells(j, 3).Top
mypic.Left = objXL.Worksheets(1).Cells(j, 3).Left

j er en variabel da ovenstående løber igennem en løkke...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester