I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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
