Notifikationer

Markér alle som læst Log ud

zack Nybegynder

10. juni 2003 - 08:41 Der er 14 kommentarer og
1 løsning

Fejlfinding i makro

Har denne makro:

Sub Makro5()

Filnavn = Range("B1").Value & ".bmp"
ActiveSheet.Pictures.Insert:=Range("A94") & filnavn.Select
Range("G93").Select
Sheets("Testkal").Select
End Sub

Den er dog ikke tilfreds med linien: Active...

Hvad er fejlen?

Synes godt om

bak Forsker

10. juni 2003 - 08:59 #1

zack-> hvad står der i A94 ?

Synes godt om

zack Nybegynder

10. juni 2003 - 09:03 #2

Har løst den... nogenlunde.... den skal dog smide billedet ind i celle G93. Det gør den ikke pt.

Synes godt om

clemen Nybegynder

10. juni 2003 - 09:20 #3

Jeg mener at billeder ikke kan indsættes i celler. Billeder ligger som grafik over regnearket. Jeg tror at dette er dit problem? hvor(dan) ligger den billedet

Synes godt om

zack Nybegynder

10. juni 2003 - 09:32 #4

Hmmm... den skal heller ikke decideret sættes ind i en celle... den skal bare ca. placeres der.

Synes godt om

bak Forsker

10. juni 2003 - 09:34 #5

Sub Macro1()
Dim x As Object
Set x = ActiveSheet.Pictures.Insert("C:\Documents and Settings\tbc\My Documents\My Pictures\a2h3_python.gif")
x.Top = Range("A93").Top
x.Left = Range("A93").Left
End Sub

Synes godt om

zack Nybegynder

10. juni 2003 - 09:38 #6

Makro pt.:

Sub Makro5()

filnavn = Range("B1").Value & ".bmp"
ActiveSheet.Pictures.Insert("F:\EM\BITMAP\" & filnavn).Select
Range("G93").Select
Sheets("Testkal").Select
End Sub

Prøvede at sætte dit ind bak... men tror jeg gjorde det forkert...

Synes godt om

bak Forsker

10. juni 2003 - 09:41 #7

test lige det her
Sub Macro1()
Dim x As Object
Dim FilNavn As String
FilNavn = Range("B1").Value & ".bmp"
Set x = ActiveSheet.Pictures.Insert("F:\EM\BITMAP\" & FilNavn)
x.Top = Range("A93").Top
x.Left = Range("A93").Left
End Sub

Synes godt om

zack Nybegynder

10. juni 2003 - 09:46 #8

Virker ikke... opfører sig som tidligere...

Synes godt om

bak Forsker

10. juni 2003 - 09:54 #9

Mærkeligt, her smider den fint et billede ind med venstre top i A93.
Hvad gør den hos dig ?

Synes godt om

zack Nybegynder

10. juni 2003 - 10:00 #10

Jeg sover... du har skrevet A93 i din. Tak det virker... næsten...

Hvad skal jeg ændre, så den gør det i arket "kalk" og ikke i activeshhet, da dette kan være et problem?

Synes godt om

bak Forsker

10. juni 2003 - 10:04 #11

Sub Macro1()
Dim x As Object
Dim FilNavn As String
FilNavn = Range("B1").Value & ".bmp"
Set x = Worksheets("kalk").Pictures.Insert("c:\" & FilNavn)
x.Top = Range("g93").Top
x.Left = Range("g93").Left
End Sub

Synes godt om

bak Forsker

10. juni 2003 - 10:06 #12

Jeg har lige rettet stien

Sub Macro1()
Dim x As Object
Dim FilNavn As String
FilNavn = Range("B1").Value & ".bmp"
Set x = Worksheets("kalk").Pictures.Insert("F:\EM\BITMAP\" & FilNavn)
x.Top = Range("G93").Top
x.Left = Range("G93").Left
End Sub

Synes godt om

zack Nybegynder

10. juni 2003 - 10:11 #13

Virket kun hvis man står netop i det ark...hmmm... kan have noget at gøre med... at filnavn, også kun er i det ark?

Synes godt om

bak Forsker

10. juni 2003 - 10:16 #14

Ja
Sub Macro1()
Dim x As Object
Dim FilNavn As String
FilNavn = Worksheets("kalk").Range("B1").Value & ".bmp"
Set x = Worksheets("kalk").Pictures.Insert("F:\EM\BITMAP\" & FilNavn)
x.Top = Range("G93").Top
x.Left = Range("G93").Left
End Sub

Synes godt om

zack Nybegynder

10. juni 2003 - 10:22 #15

Perfekt... tak for hjælpen.

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Ændre tal i en celle Af xvid i Excel	1	04/09/202616:05	04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel	7	31/08/202610:24	04/09/202602:08
problem med mailbesked Af Pestilensen i Excel	3	24/08/202611:16	28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	18	17/08/202615:14	05/09/202622:04
Gemme største værdi Af Lemming@privat.dk i Excel	2	07/08/202622:13	08/08/202609:03

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS