grafikon to Word

[Nemeth Tibor]

Lukács Ákos wrote:
> hi
> 
> Ha excelbol valami kepmanipulalo progiba rakod be, akkor nem lesz jo? Es
> azutan a kesz kepet tovabb wordbe.
> Vagy alt-printscreen, mint mar irta valaki.

Hali !

A kepmanipulalo program kezeleset nem tudom beletenni a makroba, meg 
csak nem is feltetetelezem, hogy lehet, de ha tevednek, ne kimeljetek a 
reszletektol.
Az Alt-Printscreen szerintem ugyanigy makrokeptelen, raadasul az egesz 
excel ablakot elteszi, de azert ezeket meg kiprobalom.
.
.
.
Kiprobalatam, valoban az egesz excel abalkot teszi le, nem csak a 
diagramot, de !!!

Kozben jott otlet, megvan a megoldas.
A makro ami rogzitheto lett:
Tehat excelben digaram copy utana
Worben : iranyitott beillesztes/Kep(EnhancedMetaile)/Ok
utan CtrlX, ez torli, majd ujra iranyitott beillesztes/kep
mert ekkor mar van ilyen es ekkor engedelyezi a szovegen kivulre 
torleset majd Ok gomb es kesz.

A keletkezett makro :

   Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
         Placement:=wdFloatOverText, DisplayAsIcon:=False
     Selection.Cut
     Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _
         Placement:=wdInLine, DisplayAsIcon:=False


Ez mar jonak tunik, bar kicsit izzadsagszagu, de ha ez kell neki, hat 
legyen, csak ne nekem kelljen dolgozni.

Udv.
                             Nemeth Tibor