-
IT café
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
-
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 SubHa 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
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Canva Pro előfizetés - 1 éves
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."