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

• #2309 Syntax csendes tag martonx #2308

  Új Válasz 2013-12-27 12:27:49 #2309

  Ú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

  

  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").Paste

  Az 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

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