Zavrieť

Porady

Makro: Excel do powerpointu

Nevie niekdo nahodov ako pomocou makra urobit v powerpointe graf ktorý by tahal udaje z excelu?

skusal som nahravanie makra ale excel vobec nekomunikuje s powerpointom
samozrejme ani naopak to neslo (powerpoint s excelom)













stacil by mi hoci jaky jednoduchy zapis:

povedzme
a1 a2
a 5 6
b 8 9

a v powerpointe sa urobi graf ...... samozrejme pomocou makra
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    Black je offline (nepripojený) Black

    Black
    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.

    Palo235 je offline (nepripojený) Palo235

    Palo235
    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)

    Black je offline (nepripojený) Black

    Black
    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.

    Chobot je offline (nepripojený) Chobot

    Chobot
    Palo235 Pozri príspevok
    Nevie niekdo nahodov ako pomocou makra urobit v powerpointe graf ktorý by tahal udaje z excelu?

    skusal som nahravanie makra ale excel vobec nekomunikuje s powerpointom
    samozrejme ani naopak to neslo (powerpoint s excelom)

    stacil by mi hoci jaky jednoduchy zapis:

    povedzme
    a1 a2
    a 5 6
    b 8 9

    a v powerpointe sa urobi graf ...... samozrejme pomocou makra
    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ť).

    Palo235 je offline (nepripojený) Palo235

    Palo235
    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

    Palo235 je offline (nepripojený) Palo235

    Palo235
    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

    Palo235 je offline (nepripojený) Palo235

    Palo235
    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).

    xxn je offline (nepripojený) xxn

    xxn
    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
    Naposledy upravil xxn : 21.04.21 at 13:48 Dôvod: doplnenie

    Makro: Excel do powerpointu

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.