Avatar billede line240200 Nybegynder
07. december 2013 - 14:00 Der er 5 kommentarer og
1 løsning

Vælge fil med VBA

Hej alle sammen.

Jeg er begynder i VBA og har et problem med angivelse af et filnavn.
Først lige koden (Er taget ud af en sammenhæng):
'**********************************
Dim i As Integer
'Insert Logo
If Range("A27").Value = "1" Then
file = test_1

ElseIf Range("A27").Value = "2" Then
file = test_2

End If

i = 0
sheets("INDEX_1").Select
For = 1 To 10
ActiveSheet.Pictures.Delete
Range("A1").Select
                      ActiveSheet.Pictures.Insert("C:\VBA\*.JPG").Select
   
Selection.ShapeRange.Width = 280
Next
'***************************************

Range A27 value bliver defineret via en dropdown menu.
Mit mål er at der i filstien bliver indsat variablen "File" på stjernens plads således at stien bliver:("C:\VBA\file.JPG").Select

Er der en eller anden der vil hjælpe med det?
Avatar billede kabbak Professor
07. december 2013 - 14:25 #1
denne får du fejl på
For = 1 To 10

du må kunne bruge:
      ActiveSheet.Pictures.Insert("C:\VBA\test_" &  Range("A27")&".JPG").Select

og så droppe:

If Range("A27").Value = "1" Then
file = test_1

ElseIf Range("A27").Value = "2" Then
file = test_2

End If
Avatar billede line240200 Nybegynder
07. december 2013 - 14:53 #2
Super det virker, hvordan er det nu lige jeg afslutter og giver dig point?
Avatar billede line240200 Nybegynder
07. december 2013 - 14:57 #3
Ups lige et tillægs spørgsmål, hvad nu hvis jeg vil vælge celle værdien 1 el. 2 fra et andet end det aktive ark, hvordan gørjeg så det?
Avatar billede kabbak Professor
07. december 2013 - 15:04 #4
et svar ;-))

et andet ark:

så skal du sætte arknavne ind, eksempel

    Worksheets("Test").Pictures.Insert("C:\VBA\test_" &  Worksheets("Indtast").Range("A27")&".JPG").Select
Avatar billede kabbak Professor
07. december 2013 - 15:04 #5
et svar ;-))
Avatar billede line240200 Nybegynder
07. december 2013 - 15:07 #6
Mange 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

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



Seneste spørgsmål Seneste aktivitet
I dag 20:46 opkaldside Af hagbartm i Mobiltelefoner
I dag 16:05 win 10 vil ikke boote Af bb69 i Windows
I dag 11:20 Lenovo x390 Af tobberjas i PC
I dag 10:14 Alder i Excel Af Nanarsi i Excel
I dag 09:00 Flere linier på faneblad Af Peder Lund Nielsen i Excel