作者darien ( 毛茸茸)
看板Visual_Basic
標題Re: [VBA ] 想用VBA去讀ppt裡的文字
時間Sat Jun 14 18:23:03 2014
: 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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1402741386.A.DDB.html
1F：推 tsongs:推 回應解答還有程式碼 好習慣 06/14 19:09