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

• #42206 Delila_1 veterán Fferi50 #42205

  Új Válasz 2019-11-16 17:56:03 #42206

  Ú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

  

  Delila_1

  veterán

  válasz Fferi50 #42205 üzenetére

  Egy keveset módosítottam, mert X-et tett oda is, ahova nem kellett volna, no meg a kérdezőnek .png képei vannak.

      For Each Pic In Pics
        Pic.Offset(0, -1).Select
        On Error Resume Next
        ActiveSheet.Shapes.AddPicture Filename:=Path & Pic.Value & ".png", linktofile:=msoFalse, saveWithdocument:=msoTrue, Left:=Pic.Offset(0, -1).Left + 5, Top:=Pic.Top, Width:=50, Height:=60
        If Pic.Value = "" Or Err <> 0 Then
            Pic.Offset(0, -1).Value = "X"
            Pic.Offset(0, -1).Font.ColorIndex = 3
            On Error GoTo 0
        Else
            Pic.RowHeight = 60
        End If
    Next

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