Hirdetés

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

  • Delila_1

    Topikgazda

    válasz varsam #11104 üzenetére

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = "" Then Exit Sub
    If Target.Address = "$B$2" Then 'ehelyett írd azt a cellát, amibe adatot viszel a kép
    'megjelenítéséhez
    Dim utvonal As String
    Dim FN As String

    utvonal = "D:\valami\valami_más\" 'ide írd a saját útvonaladat
    FN = "képneve.jpg" 'ide írd a beszúrandó kép nevét kiterjesztéssel

    Range("D2").Select 'a D2 bal felső sarkához illeszti a képet, írd át
    ActiveSheet.Pictures.Insert(utvonal & FN).Select
    End If
    End Sub

    Ha a B2 cellába írsz valamit, a D2-be beilleszti a képet, aminek az útvonalát és a nevét a kiterjesztéssel együtt megadod a jelölt sorokban.

    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