Re: [VBA ] 想用VBA去讀ppt裡的文字

[darien ( 毛茸茸)]

: A欄填入一個"powerpoint的檔案名稱" , B欄想填入"這個powerpoint的作者"
: §作者名字只寫在powerpoint裡,最右下角的文字方塊之中§

Thanks to knstt!

I make it!

但無窮的慾望是驅使吾人寫程式的動力......
我又想得寸進尺多寫一點更convenient的程式

先把我目前的程式大略碼寫在下面

----------------------------------------------------

Sub CallName()

    Dim ppApp As PowerPoint.Application
    Dim ppPres As PowerPoint.Presentation
    Dim ppSlide As PowerPoint.Slide
    Dim ppShape As PowerPoint.Shape
    Dim tr As TextRange

    以儲存格中的文字建立超連結到該ppt檔案
    開啟超連結

    Set ppApp = New PowerPoint.Application
    Set ppPres = ppApp.Presentations(1)
    Set ppSlide = ppPres.Slides.Item(1)

    For j = 1 To ppSlide.Shapes.Count
        Set ppShape = ppSlide.Shapes.Item(j)

        If 這個shape物件是我要的格式和內容 Then

           Set tr = ppShape.TextFrame.TextRange
           tr.Copy
           貼到EXCEL檔案
        End If
    Next j

End Sub


----------------------------------------------------

我的問題(慾望)如下:

可不可以不要經過"開啟超連結"的動作就讓程式去找到那份PowerPoint檔
然後在不開啟的情況下 用以上方法去複製我要的物件?


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 180.177.223.214
※ 文章網址: http://www.ptt.cc/bbs/Visual_Basic/M.1402741386.A.DDB.html
推 tsongs:推 回應解答還有程式碼 好習慣