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

• #49381 Delila_1 Topikgazda Silious #49380

  Új Válasz 2022-07-28 07:58:54 #49381

  Ú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

  Topikgazda

  válasz Silious #49380 üzenetére

  Rendeld a lapodhoz (lásd Összefoglaló) a lenti makrót:
  Private Sub Worksheet_Change(ByVal Target As Range)
    Dim FN As Picture
    Dim KepHelye As String
    
    If Target.Column = 1 Then
        KepHelye = "C:\kepek\" & Target & ".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
End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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