„Excel“ duomenų siuntimas į „PowerPoint“ pristatymą

Sakoma, kad iki 50 procentų „PowerPoint“ pristatymų yra duomenų, kurie buvo nukopijuoti tiesiai iš „Excel“. Šiuo teiginiu nesunku patikėti. Dažnai daug lengviau analizuoti ir kurti diagramas bei duomenų rodinius programoje „Excel“ nei „PowerPoint“. Sukūrus šias diagramas ir duomenų rodinius, kodėl gi jų tiesiog neperkėlus į „PowerPoint“? Šioje skiltyje esanti makrokomanda leidžia dinamiškai kurti PowerPoint skaidres, kuriose yra duomenų iš jūsų nurodyto diapazono.

Galite atsisiųsti veikiantį Excel duomenų siuntimo į PowerPoint pavyzdį .

Kaip veikia makrokomandas

Šiame pavyzdyje nukopijuojate diapazoną iš „Excel“ failo ir įklijuojate tą diapazoną į naujai sukurto „PowerPoint“ pristatymo skaidrę.

Atminkite, kad šis kodas bus paleistas iš „Excel“, todėl turite nustatyti nuorodą į „Microsoft PowerPoint“ objektų biblioteką. Nuorodą galite nustatyti atidarę Visual Basic redaktorių programoje Excel ir pasirinkę Įrankis → Nuorodos. Slinkite žemyn, kol rasite įrašą Microsoft PowerPoint xx Object Library, kur xx yra jūsų PowerPoint versija. Pažymėkite žymės langelį šalia įrašo.

Sub CopyRangeToPresentation ()
1 veiksmas: deklaruokite savo kintamuosius
  Pritemdykite PP kaip PowerPoint.Application
  Pritemdyti PPPres kaip PowerPoint.Presentation
  Pritemdyti PPSlide kaip PowerPoint.Slide
  Pritemdykite skaidrės pavadinimą kaip eilutę
„2 veiksmas: atidarykite „PowerPoint“ ir sukurkite naują pristatymą
  Nustatyti PP = New PowerPoint.Application
  Nustatyti PPPres = PP.Presentations.Add
  PP.Matomas = Tiesa
3 veiksmas: pridėkite naują skaidrę kaip 1 skaidrę ir nustatykite jai židinį
  Nustatyti PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)
  PPSlide.Pasirinkite
4 veiksmas: nukopijuokite diapazoną kaip paveikslėlį
  Lapai ("Skaidrių duomenys"). Diapazonas ("A1:J28"). Kopijuoti paveikslėlį _
  Išvaizda:=xlScreen, Formatas:=xlPaveikslėlis
5 veiksmas: įklijuokite paveikslėlį ir sureguliuokite jo padėtį
  PPSlide.Shapes.Paste.Select
  PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
  PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
6 veiksmas: pridėkite skaidrės pavadinimą
  SlideTitle = "Mano pirmoji PowerPoint skaidrė"
  PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle
7 veiksmas: atminties išvalymas
  PP.Suaktyvinti
  Nustatyti PPSlide = nieko
  Nustatyti PPPres = nieko
  Nustatyti PP = nieko
Pabaigos sub

1 veiksme deklaruojate keturis kintamuosius: PP yra objekto kintamasis, atskleidžiantis PowerPoint programos objektą, PPPres yra objekto kintamasis, kuris atskleidžia PowerPoint pristatymo objektą, PPSlide yra objekto kintamasis, atskleidžiantis PowerPoint skaidrės objektą, o SlideTitle yra eilutė. kintamasis, naudojamas skaidrės pavadinimo tekstui perduoti.

2 veiksmas atidaro „PowerPoint“ su tuščiu pristatymu. Atminkite, kad „PowerPoint“ programos ypatybę „Visible“ nustatėte į „True“, kad užtikrintumėte, jog matote veiksmą, kai vykdomas kodas.

3 veiksme prie pristatymo pridedate naują skaidrę naudodami objekto skaidrės pridėjimo metodą. Atminkite, kad naudojate ppLayoutTitleOnly, užtikrindami, kad skaidrė būtų sukurta naudojant pavadinimo teksto rėmelį. Tada žengsite papildomą žingsnį ir sutelkite dėmesį į skaidrę. Tai reiškia, kad jūs aiškiai nurodote „PowerPoint“ pasirinkti šią skaidrę, kad ji būtų aktyvi.

4 veiksme naudojate CopyPicture metodą, kad nukopijuotumėte tikslinį diapazoną kaip paveikslėlį. Čia kopijuojamas diapazonas yra nuo A1 iki J28 skirtuke Skaidrių duomenys.

5 veiksmas įklijuoja paveikslėlį į aktyvią skaidrę ir centruoja nuotrauką tiek horizontaliai, tiek vertikaliai.

6 veiksme pavadinimo tekstą išsaugote eilutės kintamajame, o tada perduodate tą kintamąjį „PowerPoint“, kad tekstas būtų pritaikytas pavadinimo teksto rėmelyje.

7 veiksme paleidžiate objektus, priskirtus jūsų kintamiesiems, taip sumažinant bet kokių problemų, sukeltų grubių objektų, kurie gali likti atviri atmintyje, tikimybę.

Kaip naudoti makrokomandą

Norėdami įdiegti šią makrokomandą, galite nukopijuoti ir įklijuoti ją į standartinį modulį:

Suaktyvinkite Visual Basic redaktorių paspausdami Alt + F11.

Projekto lange raskite savo projekto / darbaknygės pavadinimą.

Pasirinkite Įterpti → Modulis.

Įveskite arba įklijuokite kodą.

Leave a Comment

Specialiųjų simbolių įterpimas į Word 2010

Specialiųjų simbolių įterpimas į Word 2010

Kartais gali prireikti įterpti neįprastą simbolį į Word 2010 dokumentą. Perskaitykite, kaip lengvai tai padaryti su mūsų patarimais ir simbolių sąrašu.

Kaip naudoti logines funkcijas „Excel 2010“ formulėse

Kaip naudoti logines funkcijas „Excel 2010“ formulėse

„Excel 2010“ naudoja septynias logines funkcijas – IR, FALSE, IF, IFERROR, NOT, OR ir TRUE. Sužinokite, kaip naudoti šias funkcijas efektyviai.

Kaip paslėpti ir rodyti eilutes ir stulpelius programoje „Excel 2016“.

Kaip paslėpti ir rodyti eilutes ir stulpelius programoje „Excel 2016“.

Sužinokite, kaip paslėpti ir atskleisti stulpelius bei eilutes programoje „Excel 2016“. Šis patarimas padės sutaupyti laiko ir organizuoti savo darbalapius.

Kaip apskaičiuoti slenkančius vidurkius programoje „Excel“.

Kaip apskaičiuoti slenkančius vidurkius programoje „Excel“.

Išsamus vadovas, kaip apskaičiuoti slankiuosius vidurkius „Excel“ programoje, skirtas duomenų analizei ir orų prognozėms.

Kaip nukopijuoti formules naudojant automatinį pildymą programoje „Excel 2016“.

Kaip nukopijuoti formules naudojant automatinį pildymą programoje „Excel 2016“.

Sužinokite, kaip efektyviai nukopijuoti formules Excel 2016 programoje naudojant automatinio pildymo funkciją, kad pagreitintumėte darbo eigą.

Kaip „Excel 2010“ langeliams taikyti užpildymo spalvas, raštus ir gradientus

Kaip „Excel 2010“ langeliams taikyti užpildymo spalvas, raštus ir gradientus

Galite pabrėžti pasirinktus langelius „Excel 2010“ darbalapyje pakeisdami užpildymo spalvą arba pritaikydami ląstelėms šabloną ar gradiento efektą.

Kaip paryškinti savaitgalio datas programoje „Excel“.

Kaip paryškinti savaitgalio datas programoje „Excel“.

Dirbdami su laiko kortelėmis ir planuodami programą „Excel“, dažnai pravartu lengvai nustatyti bet kokias datas, kurios patenka į savaitgalius. Šiame straipsnyje pateikiami žingsniai, kaip naudoti sąlyginį formatavimą.

Kaip sukurti diagramas „Office 365“.

Kaip sukurti diagramas „Office 365“.

Sužinokite, kaip sukurti diagramas „Word“, „Excel“ ir „PowerPoint“ programose „Office 365“. Daugiau informacijos rasite LuckyTemplates.com.

Kaip sukurti pasirinktinius „Excel“ suvestinės lentelės skaičiavimus

Kaip sukurti pasirinktinius „Excel“ suvestinės lentelės skaičiavimus

„Excel“ suvestinės lentelės leidžia kurti <strong>pasirinktinius skaičiavimus</strong>, įtraukiant daug pusiau standartinių skaičiavimų. Šiame straipsnyje pateiksiu detalius nurodymus, kaip efektyviai naudoti šią funkciją.

Kaip pakeisti rašybos tikrinimo ir gramatikos nustatymus programoje „Word 2016“.

Kaip pakeisti rašybos tikrinimo ir gramatikos nustatymus programoje „Word 2016“.

Nesvarbu, ar dievinate, ar nekenčiate Word gebėjimo išjuokti jūsų kalbos gebėjimus, jūs turite galutinį sprendimą. Yra daug nustatymų ir parinkčių, leidžiančių valdyti „Word“ rašybos ir gramatikos tikrinimo įrankius.