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

• #49424 Delila_1 veterán Delila_1 #49423

  Új Válasz 2022-08-03 12:58:27 #49424

  Ú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 Delila_1 #49423 üzenetére

  Hopsz, kimaradt az az eset, mikor mégis csak 1 kép nevét viszed be egyszerre.

  Private Sub Worksheet_Change(ByVal Target As Range)
    Dim FN As Picture, CV As Range, ter As Range
    Dim KepHelye As String
    
    If Target.Column = 1 Then
        Application.EnableEvents = False
        If Target.Count > 1 Then
            Set ter = Range(Target.Address)
            For Each CV In ter
                KepHelye = "D:\kepek\" & CV.Value & ".jpg"
                With Cells(CV.Row, 2)
                    Set FN = ActiveSheet.Pictures.Insert(KepHelye)
                    .RowHeight = Rows(Target.Row).Height
                    FN.Top = .Top + 1
                    FN.Left = Columns(2).Left + 1
                    FN.Height = Rows(Target.Row).Height - 5
                    FN.Height = .Height
                    FN.Placement = xlMoveAndSize
                End With
            Next
        Else
          KepHelye = "D:\kepek\" & Target.Value & ".jpg"
            With Cells(Target.Row, 2)
                Set FN = ActiveSheet.Pictures.Insert(KepHelye)
                .RowHeight = Rows(Target.Row).Height
                FN.Top = .Top + 1
                FN.Left = Columns(2).Left + 1
                FN.Height = Rows(Target.Row).Height - 5
                FN.Height = .Height
                FN.Placement = xlMoveAndSize
            End With
        End If
        Application.EnableEvents = True
    End If
End Sub


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