Új hozzászólás Aktív témák

• #42170 bucihost senior tag bucihost #42167

  Új Válasz 2019-11-13 07:07:26 #42170

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bucihost

  senior tag

  válasz bucihost #42167 üzenetére

  Találtam egy macrot, ami jó lenne. Viszont ha nem talál képet, akkor "lehal" a macro.
  Mit kellene hozzá írni, hogy ha nem talál képet akkor tovább lépjen vagy egy általam definiált képet rakjon oda? (egy nagy piros X)

  Sub PlacePics()
    Dim Path As String, Pics As Range, Pic As Range
    
    Path = "C:\Users\branyiczkif\Desktop\AjanlatKepek\kepek\"
  Set Pics = ActiveSheet.Range("B2:B20")
    
    For Each Pic In Pics
        Pic.Offset(0, -1).Select
        ActiveSheet.Pictures.Insert(Path & Pic.Value & ".png").Select
    Next Pic
End Sub


Új hozzászólás Aktív témák