VB tekens + extensie toevoegen

[Immow]

Hoi allemaal ik ben met Excel aan het stoeien en probeer via VB een mooi overzichtje te maken voor me verzameling Magic kaartjes

Option Explicit
Sub InsertComment()
Dim rngList As Range
Dim c As Range
Dim cmt As Comment
Dim strPic As String
    
On Error Resume Next

'change this to the range that contains the file names in your workbook
Set rngList = Range("B2:B100")

'change this to the folder path for your picture files
strPic = "D:\Magic\"

If Right(strPic, 1) <> "\" Then
  strPic = strPic & "\"
End If

For Each c In rngList
  With c.Offset(0, 0)
    Set cmt = .Comment
    If cmt Is Nothing Then
      Set cmt = .AddComment
    End If
    With cmt
      .Text Text:=""
      .Shape.Fill.UserPicture strPic & c.Value
      .Visible = False
.Shape.Width = 210
.Shape.Height = 300

    End With
  End With
Next c

End Sub

Nu moet ik dus in excel de namen schrijven als plaatje_2.jpg b.v.

Is het mogelijk om dat in de cel als plaatje 2 te schrijven en dan in VB indien nodig een spatie vervangen met _ en aan einde .jpg toevoegen (dan werkt me code weer)

 

[Warme bakkertje]

.Shape.Fill.UserPicture strPic & Replace(c.Value, " ", "_") & ".jpg"

 

[Immow]

Bedankt het werkt!

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost

 

[Immow]

.Shape.Fill.UserPicture strPic & Replace(c.Value, " ", "_") & ".jpg"

Het gaat bijna goed, echter nog 1 ding wat er bij moet dat _s ’s word

het probleem zit dus in plaatjes met deze benaming b.v.: Liliana_s_Specter.jpg

wat dus gefilterd er zo uit moet zien: Liliana’s Specter

Ik probeer zo iets maar dat werkt niet

.Shape.Fill.UserPicture strPic & Replace(c.Value, " ", "_", "’s", "_s") & ".jpg"

 

[Immow]

Ah, ik heb het opgelost (met wat hulp). Ik moest blijkbaar het groeperen.

.Shape.Fill.UserPicture strPic & Replace(Replace(Replace(c.Value, " ", "_"), "’", "_"), ",", "_") & ".jpg"