Avatar billede puppetmaster Nybegynder
14. december 2004 - 10:41 Der er 6 kommentarer og
1 løsning

Indsætte billede i regneark

Er det muligt at indsætte et billede i et regneark fra VBA?
Brugeren udvælger nogle data og kan overføre disse til Excel vha. en VBA funktion. Det virker perfekt.
Men jeg bliver jo selvfølgelig grådig og vil gerne have muligheden for at tilføje et logo. Her er den kode som Excel genererer når jeg indspiller en ny makro:
xlsheet.ActiveSheet.Pictures.Insert ("C:\MitBillede.jpg")

Problemet er at når jeg kører koden fra Access funktionen, får jeg følgende fejl:
Object variable or With block variable not set

Jeg bruger ikke en With block, er det der det går galt?
14. december 2004 - 10:43 #1
Hvordan ser hele din kode ud?
Avatar billede puppetmaster Nybegynder
14. december 2004 - 10:44 #2
Det er en smøre på 4-5 skærmsider, som jeg desværre ikke kan (læs: må) )poste her.
Avatar billede puppetmaster Nybegynder
14. december 2004 - 10:47 #3
Men her er da lidt af den:
  Set xlapp = CreateObject("Excel.Application")
  Set xlbook = xlapp.Workbooks.Open("C:\MinSkabelon.xlt")
  xlapp.Visible = True

.
.
.
.
  Navn = rst2("Værdi")
  Navn = Replace(Navn, "/", "")
  Navn = Replace(Navn, ".", " ")
  xlbook.Worksheets.Add.Name = Navn
 
  Set xlsheet = xlbook.Worksheets(Navn).
.
.
.
.
.
xlsheet.Range("A3").Value = "Dato"
xlsheet.Range("A3").Value = "Ordrenr"
.
.
xlsheet.ActiveSheet.Pictures.Insert ("C:\MitBillede.jpg")
.
.
With xlsheet
  .Columns.AutoFit
End With
Avatar billede puppetmaster Nybegynder
14. december 2004 - 10:47 #4
Når linien
xlsheet.ActiveSheet.Pictures.Insert ("C:\MitBillede.jpg")
er blanket ud, kører koden uden fejl.
14. december 2004 - 10:50 #5
Hmm, du definere, at xlsheet = xlbook.Worksheets(Navn)

Derfor virker det forkert, at du bruger Activesheet i din sætning.

Hvad med bare denne:

xlsheet.Pictures.Insert ("C:\MitBillede.jpg")
Avatar billede puppetmaster Nybegynder
14. december 2004 - 10:51 #6
DAMN, you the man, DEN havde jeg "#¤ overset. :(
Tak! :)
14. december 2004 - 10:52 #7
selv tak :o)
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
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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