Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #49424 Delila_1 veterán Delila_1 #49423
    Új Válasz #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