Zavrieť
Upraviť
Hlavné
- Auto Moto [x]
- Cestovanie [x]
- Deti [x]
- Domácnosť [x]
- Elektronika [x]
- Foto [x]
- Hoby [x]
- Hudba [x]
- Iné [x]
- Kaviareň Porady [x]
- Kultúra [x]
- Mobily a Tablety [x]
- Móda [x]
- Mzdy a personalistika [x]
- Neziskové organizácie [x]
- Počítače [x]
- Podnikanie [x]
- Porada (o stránke Porada) [x]
- Právo [x]
- Recenzie [x]
- Recepty [x]
- Software [x]
- Stavba [x]
- Šport [x]
- Účtovníctvo a dane [x]
- Vzdelávanie [x]
- Záhrada [x]
- Zdravie [x]
- Zvieratá [x]
Otázku
Pravidlá
Položte novú otázku, ak:
- Potrebujete odpoveď (na diskusiu slúžia Debaty).
- Ste nenašli odpoveď cez vyhľadávanie
Tip
Pravidlá a tipy
Vaše rady, tipy a vedomosti!
Tip môžete napísať stručne ale môže ísť aj o dlhší článok.
Ak chcete zdieľať cudzí článok, zdieľajte link.
Tip môžete napísať stručne ale môže ísť aj o dlhší článok.
Ak chcete zdieľať cudzí článok, zdieľajte link.
Zdieľaj link
Pravidlá a tipy
Zdieľajte s nami link na články z iných webov.
Komentáre k linku budú zoradené podľa počtu hlasov,
môžete využiť aj filter komentárov a zobraziť
len komentáre od členov ktorých na Porade sledujete.
Komentáre k linku budú zoradené podľa počtu hlasov,
môžete využiť aj filter komentárov a zobraziť
len komentáre od členov ktorých na Porade sledujete.
Sledovať
data z xls do ppt
cawte.
chcel by som poradit, ci niekto nevie co je s tymto makrom.
Toto funguje normalne
Dim oPPTApp As Object
Dim rngNewRange As Excel.Range
Dim oExcel As Object
Range("A1").Select
a = ActiveCell.Value
Set oExcel = Excel.Application
Set oPPTApp = CreateObject("PowerPoint.Application")
oPPTApp.Visible = msoTrue
oPPTApp.presentations.Open "d:\NEW.ppt"
Set rngNewRange = ActiveSheet.Range("D4:H5")
rngNewRange.Select
rngNewRange.Copy
oPPTApp.ActivePresentation.Slides(1).Shapes("Objec t 8").Select
oPPTApp.ActivePresentation.Slides(1).Shapes("Objec t 8").OLEFormat.DoVerb
Sheets("Sheet1").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("Graf1").Select
oPPTApp.ActiveWindow.Selection.Unselect
oExcel.Visible = True
Ale ked chcem aktualizovat iny slide, napr.
oPPTApp.ActivePresentation.Slides(4).Shapes("Objec t 8").Select
oPPTApp.ActivePresentation.Slides(4).Shapes("Objec t 8").OLEFormat.DoVerb
Tak mi to vypise takyto debug:
Shape.Select: Invalid request. To select a shape, its view must be active.
Pritom mi ostane vysvieteny slide 1.
Neviete niekto co s tym? Dik
chcel by som poradit, ci niekto nevie co je s tymto makrom.
Toto funguje normalne
Dim oPPTApp As Object
Dim rngNewRange As Excel.Range
Dim oExcel As Object
Range("A1").Select
a = ActiveCell.Value
Set oExcel = Excel.Application
Set oPPTApp = CreateObject("PowerPoint.Application")
oPPTApp.Visible = msoTrue
oPPTApp.presentations.Open "d:\NEW.ppt"
Set rngNewRange = ActiveSheet.Range("D4:H5")
rngNewRange.Select
rngNewRange.Copy
oPPTApp.ActivePresentation.Slides(1).Shapes("Objec t 8").Select
oPPTApp.ActivePresentation.Slides(1).Shapes("Objec t 8").OLEFormat.DoVerb
Sheets("Sheet1").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("Graf1").Select
oPPTApp.ActiveWindow.Selection.Unselect
oExcel.Visible = True
Ale ked chcem aktualizovat iny slide, napr.
oPPTApp.ActivePresentation.Slides(4).Shapes("Objec t 8").Select
oPPTApp.ActivePresentation.Slides(4).Shapes("Objec t 8").OLEFormat.DoVerb
Tak mi to vypise takyto debug:
Shape.Select: Invalid request. To select a shape, its view must be active.
Pritom mi ostane vysvieteny slide 1.
Neviete niekto co s tym? Dik
- 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.
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.
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 
Neviem, čo presne potrebuješ dosiahnuť, ale najjednoduchšie je kopírovať graf z Excelu do ppt ako obrázok. Jedinou nevýhodou je, že vtedy nemôžeš upravovať dáta.
Aha... ja som Tu jednoducho vložila Excel do PowerPoint. Tabuľku aj graf. Dvojitým kliknutím môžeš meniť hodnoty v tabuľkách a mení sa logicky aj graf. Nepodceňuj výhodu, že si to môžeš dať na kľuč a predviesť na akomkoľvek PC.
Palo235 
Prave, ze potrebujem robit s tymi grafmi. Ide mi o to, ze chcem aby mi z predlohy kopirovalo a aktualizovavalo grafy v ppt. akurat, ze xls si dobre nerozumie s ppt.
Prečo by to nešlo. Sorry nemám čas sa tým pohrať. P.s samozrejme nevložiť ako obrázok ale Excel. Potom len 2x klikneš a robíš zmeny aké chceš. Funguje to ako vo Worde
Naposledy upravil 2009 : 06.10.09 at 07:44 Dôvod: moc som sa ponáhlala
-
vloženie.ppt
(57.5 KB, 24 videní)
Asi sme sa trochu nepochopili. Ja chcem zautomatizovat nahravanie dat z excel tabuliek do grafov v ppt. Ten zapis co som hodil, je na tu automatizaciu. Prvy slide ide spravit v pohode, ale ked chcem spravit iny ako prvy slide, tak mi vypisuje ten debug. A aj ked si nakopirujem slide na prvu poziciu, tak sa mi objavi debug a ostane vysvieteny povodny prvy slide. Ze ci to nie je nejaka chyba ppt alebo co?
Palo235
Aha... ja som Tu jednoducho vložila Excel do PowerPoint. Tabuľku aj graf. Dvojitým kliknutím môžeš meniť hodnoty v tabuľkách a mení sa logicky aj graf. Nepodceňuj výhodu, že si to môžeš dať na kľuč a predviesť na akomkoľvek PC.
Tak nakoniec som zistil kde bola chyba a to prechodu na slide
keby niekoho to zaujalo tak:
Sub Makro1()
Dim oPPTApp As Object
Dim rngNewRange As Excel.Range
Dim oExcel As Object
Set oExcel = Excel.Application
Set oPPTApp = CreateObject("PowerPoint.Application")
Set rngNewRange = ActiveSheet.Range("D4:H5")
oPPTApp.Visible = msoTrue
oPPTApp.presentations.Open "d:\powerpoint.ppt"
oPPTApp.ActivePresentation.Slides(4).Copy
oPPTApp.ActivePresentation.Slides.Paste 1
rngNewRange.Select
rngNewRange.Copy
oPPTApp.ActiveWindow.View.GotoSlide Index:=1
oPPTApp.ActiveWindow.Selection.SlideRange.Shapes(" Object 8").Select
oPPTApp.ActiveWindow.Selection.SlideRange.Shapes(" Object 8").OLEFormat.DoVerb
Sheets("Sheet1").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("Graf1").Select
oPPTApp.ActiveWindow.Selection.Unselect
oExcel.Visible = True
End Sub
keby niekoho to zaujalo tak:
Sub Makro1()
Dim oPPTApp As Object
Dim rngNewRange As Excel.Range
Dim oExcel As Object
Set oExcel = Excel.Application
Set oPPTApp = CreateObject("PowerPoint.Application")
Set rngNewRange = ActiveSheet.Range("D4:H5")
oPPTApp.Visible = msoTrue
oPPTApp.presentations.Open "d:\powerpoint.ppt"
oPPTApp.ActivePresentation.Slides(4).Copy
oPPTApp.ActivePresentation.Slides.Paste 1
rngNewRange.Select
rngNewRange.Copy
oPPTApp.ActiveWindow.View.GotoSlide Index:=1
oPPTApp.ActiveWindow.Selection.SlideRange.Shapes(" Object 8").Select
oPPTApp.ActiveWindow.Selection.SlideRange.Shapes(" Object 8").OLEFormat.DoVerb
Sheets("Sheet1").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("Graf1").Select
oPPTApp.ActiveWindow.Selection.Unselect
oExcel.Visible = True
End Sub
Porady, ktoré by vás mohli zaujímať
Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.32
Odpovedáte na otázku?
Zoznámte sa s novými pravidlami.Áno, poznám odpoveď.
Každý môže napísať 1 odpoveď, neskôr ju môže vylepšiť. Pokračovať v odpovedi
Nie, chcem sa ešte spýtať na upresnenie otázky.
Upresnenie si vyžiadajte v komentári otázky (nájdete pod otázkou). Vyžiadať upresnenie
Copyright © PORADA.sk, s.r.o. - žiadna časť stránky nemôže byť rozširovaná, alebo reprodukovaná bez predchádzajúceho súhlasu
