Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- eBay-es kütyük kis pénzért
- Luck Dragon: Asszociációs játék. :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Meggyi001: Kórházi ellátás: kuka vagy finom?
- Brogyi: CTEK akkumulátor töltő és másolatai
- sh4d0w: Kalózkodás. Kalózkodás?
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- GoodSpeed: Kell-e manapság egérpad vagy sem?
Új hozzászólás Aktív témák
-
Taybore
aktív tag
válasz
martonx
#1369
üzenetére
Ezt már végignyálaztam, de itt nincs (nem találtam) erre vonatkozó beállítási lehetőség(et).

Másrészről időközben kaptam egy tippet, ami be is jött, ezért most ide is közzéteszem, megválaszolva a saját kérdésem mások okulására is:
http://msdn.microsoft.com/en-us/library/bb209605.aspx
Ezzel a módszerrel működik
-
Taybore
aktív tag
Sziasztok!
Nekem egy olyan problémám van, hogy írtam egy macrot még Excel 2003-ban, ami egyszerűen egy képet szúrt be. Ha ezt elküldtem e-mailben, akkor a fogadó fél is látta a képet, ergo a macro "beágyazta" a képet az xls-be. Ugyanez a macro viszont erre nem hajlandó Excel 2010-ben, ugyanis én látom, hogy milyen képet rakott bele, de nem ágyazza be, és másik számítógépen megnyitva csak egy üres keret jelenik meg piros X-el, és a fájlméret se módosul számottevően. Kb olyan, mintha csak hivatkozna egy külső fájlra, ami ha nincs meg, nem jeleníti meg. Nekem az kéne, hogy ágyazza bele a képet az xls-be, ahogy a 2003-as Excel tette.
A kód eléggé egyszerű:
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.fileexists("c:\Pic\xy.jpg") Then
ActiveSheet.Pictures.Insert("c:\Pic\xy.jpg").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 59.25
Selection.ShapeRange.Width = 59.25
End IfMi lehet e megoldás? Valami Excel biztonsági beállítás vagy ilyesmi? Lehet, hogy nem a macroval van a baj, hanem az Excel beállítással? Mit nézzek meg, hol keressem?
Köszi: Norbi
Új hozzászólás Aktív témák
- Samsung Galaxy S24 8/256 GB Onyx Black 6 hónap Garancia Beszámítás Házhozszállítás
- Új, bontatlan, iPhone 17 gyárilag kártya-független, apple világgaranciával
- Komplett PC - GTX 1080 , i7-7700, 32 GB RAM, 750 GB SSD, 1 TB HDD
- Új DLSS4 Gamer PC i5-10400F/16Gb DDR4/RTX 5060 Ti 8Gb/500Gb - 2Tb SSD 2-4Év Gar
- Új DLSS4 Gamer PC i5-10400F/16Gb DDR4/RTX 5060 8Gb OC/500Gb - 2Tb SSD 2-4Év Gar
- Telefon felvásárlás!! Honor 90 Lite/Honor 90/Honor Magic5 Lite/Honor Magic6 Lite/Honor Magic5 Pro
- Apple Watch SE 2gen 40mm, Kártyafüggetlen, 1 Év Garanciával
- GYÖNYÖRŰ iPhone 12 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3195, 95% Akkumulátor
- Honor 200 Lite / 8/256GB / Kártyafüggetlen / 12HÓ Garancia
- Bomba ár! Lenovo ThinkPad T14s G2 AL - i7-1185G7 I 16GB I 1TSSD I 14" FHD Touch I W11 I Cam I Gari!
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest



