Excel slaytları PowerPoint slaytlarına

Zaten bazı yararlı siteler buldum ama hala istediğimi yapamıyorum. Excel dosyamda birkaç sütun ve birden fazla satır var. Bir satırdaki tüm veriler bir slaytta olacaktır, ancak bir satırdaki farklı hücrelerden gelen veriler PP slayttaki belirli bir öğeye gitmelidir. İlk başta, bir Excel hücresinden PP'deki belirli bir metin kutusuna veri aktarmak mümkün müdür? Örneğin, her satırın ilk sütundaki tüm verilerin bir Metin kutusu 1'e gitmesini istiyorum. Diyelim ki 100 satırım var, böylece 100 slaydım ve her slaydın doğru verileri içeren Metin yayı 1'i olur. 66 nolu slayttaki metin kutusu, 66 nolu satırın birinci sütundan elde edilen verilere sahip olacaktır. Daha sonra, her satırın ikinci sütundan elde edilen tüm veriler bir metin yayına 2 ve benzerlerine gidecektir.

Bazı makroları kötü başarı ile yapmaya çalıştım. Ayrıca Word anahatlarını kullanmaya ve bunları PP'ye aktarmaya da çalıştım (Yeni slayt -> Anahattan Slaytlar) ancak 250 sayfa anlamsız geldiğimden beri bir hata var gibi görünüyor. Sadece iki paragrafım vardı ve ikisinin de tek kelimesi vardı. Birinci paragraf, Başlık 1 ve ikinci paragraf Normal stil kullanıldı.

Bulduğum siteler, Excel sayfalarından slaytlar oluşturmak için VB ve / veya başka bir programlama dilini kullanın. Bu VB kodlarını makrolarıma eklemeye çalıştım ancak hiçbiri şu ana kadar çalışmadı. Muhtemelen onları nasıl doğru kullanacağımı bilmiyorum :) İşte size yardımcı siteler:

VBA: Excel Çalışma Kitabında Her Satır için PowerPoint Slayt Oluşturma

Verilere Dayalı Bir Sunum Raporu Oluşturma

Stackoverflow'da soru

Mac'te Office 2011 kullanıyorum. Herhangi bir yardım takdir edilecektir!

Böyle bir şey dene. Birkaç mod yaptım, böylece slayttaki @ COL1 @ metninin herhangi bir örneğini çalışma sayfasındaki değerlerle değiştirdi. Denenmemiş kod, dikkat et.

Sub CreateSlides()
'Open the Excel workbook. Change the filename here.
Dim OWB As New Excel.Workbook
Set OWB = Excel.Application.Workbooks.Open("C:\list.xlsx")
'Grab the first Worksheet in the Workbook
Dim WS As Excel.Worksheet
Dim sCurrentText As String
Dim oSl As Slide
Dim oSh As Shape
Set WS = OWB.Worksheets(1)
Dim i As Long
'Loop through each used row in Column A
For i = 1 To WS.Range("A65536").End(xlUp).Row
    'Copy the first slide and paste at the end of the presentation
    ActivePresentation.Slides(1).Copy
    Set oSl = ActivePresentation.Slides.Paste(ActivePresentation.Slides.Count + 1)
    sCurrentText = WS.Cells(i, 1).Value

    ' find each shape with "@COL1@" in text, replace it with value from worksheet
    For Each oSh In oSl.Shapes
      ' Make sure the shape can hold text and if is, that it IS holding text
      If oSh.HasTextFrame Then
        If oSh.TextFrame.HasText Then
          ' it's got text, do the replace
          With oSh.TextFrame.TextRange
            .Replace "@COL1@", sCurrentText
          End With
        End If
      End If
    Next
Next
End Sub

PowerPoint Eklentisi Excel İçe Aktarma Excel verilerini PowerPoint'e içe aktarabilir

Bu ne yapar

• Excel verilerini açık sunumunuza aktarır
  Yöntem: PowerPoint slayt başına bir Excel satırı, geçerli slaytta metin alanı başına bir hücre
• Birden fazla sayfa varsa veri almak için Excel sayfasını seçebilirsiniz.
• Excel dosyanızda Powerpoint'te slayttan daha fazla satır varsa, slaytları otomatik olarak ekleyebilirsiniz
• bir satırdaki tüm verileri içerecek kadar metin alanı (şekil) yoksa sizi uyarır
• her Microsoft Office sürümüyle çalışır

Nasıl kullanılır

• İndir Add-In
• Micorsoft Office Eklenti klasörünüze kaydedin
  İpucu: Win+ tuşlarına basın Rve % AppData% \ Roaming \ Microsoft \ AddIns yazın
• PowerPoint'i açın ve Eklentiyi etkinleştirin
  • Excel 2003: Menubar → Araçlar → Eklentiler
  • Excel 2007: Başlat düğmesi → Excel Seçenekleri → Eklentiler → açılan: Excel eklentileri → Git
  • Excel 2010: Dosya sekmesi → Seçenekler → Eklentiler → açılır: Excel eklentileri → Git
• Yeni bir Menü Çubuğu girişi açılacak
  
• Yeni Excel verilerini içe aktar düğmesi, Excel dosyanızı seçmek için bir Dosya iletişim kutusu açacaktır.
  Yeterli metin alanınız varsa, Eklenti bunları dolduracaktır.

Eklentiyi göstermek için bu kısa imgur albümünü görüntüleyin

Not: Kodu özelleştirmek istiyorsanız, Eklenti kodunu görmek için bir kayıt defteri anahtarı eklemelisiniz .
Kaynak kodu pastebin'de görülebilir

PPTools, şimdi standart olan 64-bit üzerinde çalışmıyor.

PowerPoint Word Docs açacak. Ve Word HTML'yi açacak.

1. Excel'de sol tarafa bir sütun ekleyin.
2. <h1> HTML etiketini bu sütundaki her hücreye yerleştirin.
3. En sağdaki sütuna, her hücreye html etiketini </h1> koyun.
4. Tüm sayfayı kopyalayıp Not Defteri'ne yapıştırın.
5. Bu etiketleri en üste ekle: <html> <body>
6. Bu etiketleri en altına ekleyin: </body> </html>
7. Onlardan kurtulmak için tüm sekmeleri hiçbir şey olmadan arayın / değiştirin.
8. Bunu bir şey.html olarak kaydedin. Şimdi kapat onu.
9. Word'de açın.
10. Bir şey olarak kaydet.docx
11. Şimdi kapat onu.
12. PowerPoint'te bir şey.docx açın ("* .pptx" yerine "tüm dosyaları" seçin).
13. PowerPoint, tüm satırları şimdi slayt olarak her satırla birlikte içe aktarmalıdır.