Søg
Avatar billede 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?
Avatar billede bak Forsker
10. juni 2003 - 08:59 #1
zack-> hvad står der i A94 ?
Avatar billede 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.
Avatar billede 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
Avatar billede 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.
Avatar billede 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
Avatar billede 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...
Avatar billede 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
Avatar billede zack Nybegynder
10. juni 2003 - 09:46 #8
Virker ikke... opfører sig som tidligere...
Avatar billede 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 ?
Avatar billede 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?
Avatar billede 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
Avatar billede 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
Avatar billede 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?
Avatar billede 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
Avatar billede zack Nybegynder
10. juni 2003 - 10:22 #15
Perfekt... tak for hjælpen.
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
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
Flytte fra et projekt til andet Af hkprofil i Excel 1 11/11/202612:17 11/11/202613:08
Slet tal, bevar de underliggende formler Af bbkdk i Excel 7 11/11/202609:23 I dag 16:57
Måned og år på graf Af mort1 i Excel 4 31/10/202613:01 01/11/202614:13
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 08:39 Produktnøgle Af hkv i Office & Kontorpakker
I går 16:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »