Új hozzászólás Aktív témák
-
Syntax
csendes tag
válasz martonx #2308 üzenetére
Hali
Meg lehet oldani.
ActiveSheet.PasteSpecial Format:="gyalog (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False
ActiveSheet.Shapes.Range(Array("gyalog")).Select
Selection.Cut
Range("K4").PasteAz első sor arra szolgál, hogy egy képet úgy lehet vele beszúrni, hogy azt később az excel tudja kezelni.
Manuálisan úgy néz ki, hogy a kiválasztott képet be kell szúrni az excel táblába de amikor beszúrod akkor az egér jobb gombját használva paste special mód kiválasztásával, és a "Picture (enhanced metafile)".Miután ez megvan akkor a képet át lehet nevezni, hogy később tudjad, hogy melyik figuráról van szó. Ezt a tábla bal felső sarkában tudod megtenni. (közvetlenül a gombsor és az oszlop címek közt)
Ha ez megvan akkor már csak az a dolgod, hogy simán csak másolgatod tovább a képet. Az az előbb leírt kód utolsó 3 sora.
Igyekeztem érthető lenni, ha nem voltam az szólj, és megpróbálom másképp.
Üdv
Repülőgépanyahajóhelikopter
Új hozzászólás Aktív témák
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Hobby elektronika
- AI generálja majd a képeket a Photoshopban
- Politika
- GTA VI
- Milyen NAS-t vegyek?
- Alkoholista nevelde
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Franciaországban nyit a Honor 200 Lite
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- További aktív témák...
- LG NanoCell 55NANO766QA Halvány píxel csík
- Philips 58PUS8545/12 1 ÉV GARANCIA Játék üzemmód
- Tyű-ha! HP EliteBook 850 G7 Fémházas Szuper Strapabíró Laptop 15,6" -65% i7-10610U 32/512 FHD HUN
- Bomba ár! HP EliteBook 840 G5 - i5-8G I 8GB I 128GB SSD I 14" FHD I HDMI I Cam I W10 I Gari!
- The Last of Us Part I Ps5