Skus v power pointe

1. záznam makra.
2. a choď do "vložiť (insert) - objekt (object) - excel chart (môžeš si zvoliť či chceš vytvoriť nový alebo vložiť link na už existujúci)
3. koniec záznamu makra.

skusal a praveze ked dam ctrl c v exceli a dam ctrl v do powerpointu tak to nic nezaznamena ...... (ale z wordu do excelu nieje ziadny problem)

skusil by som zacat niecim takymto: http://support.microsoft.com/kb/267974

Mne to funguje:

Sub Macro1()
' ActiveWindow.Selection.SlideRange.Shapes.AddOLEObj ect(Left:=120#, Top:=110#, Width:=480#, Height:=320#, FileName:="Meno a cesta k súboru.xls", Link:=msoTrue).Select
With ActiveWindow.Selection.ShapeRange
.Left = 215.25
.Top = 110#
.Width = 289.375
.Height = 320#
End With
End Sub

Je to makro z power pointu.

V PP môžeš urobiť aj vnorenú excelovskú tabuľku (teda v tomto prípade graf). Alebo v exceli urobiť graf a ten skopírovať do PP (pokiaľ tonechceš interaktívne meniť).

skusam to na office 2003 mozno na novsich verziach to slape lepsie ako mne.

Black: ked hodim tvoj prikaz tak mi nezobere cestu k xls
Chobot: viem ze PP ma vnoreny excel (v mojej office 2003 dost orezany excel)
Robint78: co sa tyka microsoft stranky tak ta mi nikdy nepomohla

podstate som chcel dosiahnut toho ze v *.xls (excel subor z ktoreho robim grafy) mam asi 100 listov na kazdom su nejake udaje a z nich pomocou makra spravit automaticky graf (rucnu pracu nemam rad .P )

ale ako to vidim pokial mi nedaju office vista asi s tym mojim lajickym pristupom nepohnem :P

- inac dik za rady .... som rad ze som nasiel nejake forum kde sa trochu venuju makram

Robin: skusil by som zacat niecim takymto: ****

• An existing Excel workbook.
• A range of cells, with labels for both data series and categories.
• A PowerPoint presentation called "Presentation1.ppt", which is saved in the My Documents folder.
• Presentation1.ppt has one slide with a title and an existing graph.
• The range of cells in the Excel workbook is the same size as the range of cells in the existing Graph datasheet.

- vsetky tieto kroky som splnil a stale sa neviem prehrabat cez

Dim oPPTApp As PowerPoint.Application
Dim oPPTShape As PowerPoint.Shape
Dim rngNewRange As Excel.Range
Dim oGraph As Object
- ked vytvorim to makro v excelu nejdu powerpointovkse dim a ked ho vytvorim v excelu nejdu zas excelovske

asi mam zle nastaveny VBAProject

Kolega to vyriesil ale vyskytol sa dalsi problem

Sub Makro1()

Dim oPPTApp As Object
Dim oPPTShape As Shape
Dim rngNewRange As Excel.Range
Dim oGraph As Object
'
' Set oPPTApp to PowerPoint by creating a new instance of PowerPoint.
' If PowerPoint is already open, you would instead use the GetObject
' method instead.
'
Set oPPTApp = CreateObject("PowerPoint.Application")
'
' Set PowerPoint to be Visible.
'
oPPTApp.Visible = msoTrue
'
' Open Presentation1.ppt from My Documents.
'
oPPTApp.presentations.Open "c:\graf.ppt"
'
' Set rngNewRange to the collection of cells in the active Excel
' workbook and active sheet.
'
Set rngNewRange = ActiveSheet.Range("D5:H5")
'
' Select the range then copy it.
'
rngNewRange.Select
rngNewRange.Copy
'
Set oGraph = oPPTApp.ActivePresentation.Slides(1).Shapes("Objec t 13").OLEFormat.Object

oPPTApp.ActivePresentation.Slides(1).Shapes("Objec t 13").Select
oPPTApp.ActivePresentation.Slides(1).Shapes("Objec t 13").OLEFormat.DoVerb

oGraph.Application.DataSheet.Range("A1").Paste

oPPTApp.ActivePresentation.Slides(2).Select

End Sub


ako zisti nazvy objektov v powerpointe?
ide o to ze kazdy graf ma svoje ID a neviem zistit kde sa uklada
chci to vediet preto aby som toto uzasne makro automatizoval a mohol sa venovat niecomu narocnejsiemu (wow).

Nastav sa na stránku s objektom (napr. s obrázkom). Klikni na obrázok/objekt.
Na ribbone "Formát", "Usporiadať" vyber "Tablá výberu". Na boku sa zobrazí zoznam pomenovaní všetkých objektov daného listu/worksheetu.

Na stránke https://www.mrexcel.com/board/thread...-names.166321/ som našiel aj makro ktoré by malo vylistovať všetky objekty z celého zošita / workbooku. Pozor tie makrá sú tam dve; a predmetné je to to prvé Sub ListCharts() ... Žiaľ mne to makro havaruje (nemôže nájsť objekt WS worksheet ), ale ak je kolega šikovný v úpravách makier tak to vyrieši.

Veľa šťastia.

Takže som našiel ešte iné makro ktoré zbehlo bez problémov a vylistováva mená všetkých objektov v zošite ...

Sub ListAllShapes()

Dim curSlide As Slide
Dim curShape As Shape

For Each curSlide In ActivePresentation.Slides
Debug.Print curSlide.SlideNumber
For Each curShape In curSlide.Shapes

Debug.Print curShape.Name

Next curShape
Next curSlide
End Sub