Problemet er er her får jeg kun indsat forudbestent VALGT billede ved følgende kode. ActiveSheet.Pictures.Insert("D:\Logo\Ikke-navngivet-1.jpg").Select
Jeg vil gerne at jeg midt i koden kan vælge billede, derfor skal dialogboksen blive stående, til jeg har valgt billede, og så køre koden færdig.
Sub Makro1() Dim filetoopen filetoopen = Application _ .GetOpenFilename("All Files (*.*),*.*") If filetoopen <> False Then MsgBox "Open " & filetoopen End If ActiveSheet.Pictures.Insert filetoopen End Sub
Sub Makro1() Dim filetoopen filetoopen = Application _ .GetOpenFilename("All Files (*.*),*.*") If filetoopen <> False Then MsgBox "Open " & filetoopen End If
If filetoopen <> True Then End ' eller send koden videre til aktuel sted ActiveSheet.Pictures.Insert filetoopen End Sub
Sub Makro1() Dim filetoopen filetoopen = Application _ .GetOpenFilename("All Files (*.*),*.*") If filetoopen = False Then End ' eller send koden videre ActiveSheet.Pictures.Insert filetoopen End Sub
Sub Makro1() Dim filetoopen filetoopen = Application _ .GetOpenFilename("All Files (*.*),*.*") If filetoopen = False Then End ActiveSheet.Pictures.Insert filetoopen ActiveSheet.Pictures.Select ' *Ny linie * End Sub
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.
Ny bruger
Nybegynder
Opret
Preview
