20. november 2013 - 16:10Der er
5 kommentarer og 1 løsning
Erstatte drev i VBA kode med det aktuelle drev sun en USB er tildelt
Jeg har denne kode i VBA, den fungere fint, men ikke perfekt.
Da regnearket ligger på en USB-nøgle og jeg ikke ved hvilken drev USB bliver tildelt, opstår det problem at den ikke kan finde billederne der også ligger på USB'en.
Er der en VBA kode der kan se efter hvilken drev USB'en er tildelt, så jeg kan erstatte M:\xxx med det?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then NewPic = "m:\Picture\" & Range("A1").Value Target.Comment.Shape.Fill.UserPicture NewPic End If
Flere kommuner går nu i gang med at bruge AI-understøttet dokumentation. Målet er, at sagsbehandlere skal bruge mindre tid på referater og registrering – og mere tid på nærvær i mødet med borgeren.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then NewPic = Split(ThisWorkbook.Path, ":")(0) & ":\Picture\" & Range("A1").Value Target.Comment.Shape.Fill.UserPicture NewPic End If End sub
Virker mere simpel og overskueligt i min verden :-)
Synes godt om
Ny brugerNybegynder
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.
