如何使用vba將文本文件導入PowerPoint？

我習慣在Word中做這種類型的事情，但在PowerPoint中同樣的事情的方法是完全不同的。如何使用vba將文本文件導入PowerPoint？

我有一個網絡文件夾，裏面有一個文本文件列表。我希望能夠點擊幻燈片上的文本字段，然後點擊自定義菜單上的導入按鈕。然後我選擇對話框中的一個文本文件，並將文本導入到我指定的區域。

我已經在PowerPoint 2010中構建了自定義菜單，並添加了一些其他宏，但是我無法制定出使用的方法。

任何人都可以給我一個開始？

這裏是我與打碼：

Sub GetTextFromLibrary() 

Dim lCurrentView As Long 
Dim SlideNum As Integer 
Dim Name$ 
Dim OldName$ 

'Store the default shape name to reset later 
OldName$ = ActiveWindow.Selection.ShapeRange(1).Name 
'Now rename the shape to work with it 
Name$ = "temp01" 

MsgBox "You are on slide: " & _ 
     OldName$, vbInformation 

ActiveWindow.Selection.ShapeRange(1).Name = Name$ 

    ' Get the current view type. 
    lCurrentView = ActiveWindow.ViewType 

    ' Make sure that PowerPoint is in Slide view. 
    ' ActiveWindow.Selection.SlideRange.SlideNumber produces an error if 
    ' you are using any other view. 
    If lCurrentView = ppViewNormal Then 
    ' Display the slide number. 
    'MsgBox "You are on slide: " & _ 
     ActiveWindow.Selection.SlideRange.SlideNumber, vbInformation 

    SlideNum = ActiveWindow.Selection.SlideRange.SlideNumber 

    MsgBox "You are on slide: " & _ 
     SlideNum, vbInformation 

' Dim a variable as a specific object type 
Dim oShape As Shape 

' Set it to "point" to a specific shape: 
Set oShape = ActivePresentation.Slides(SlideNum).Shapes("temp01") 

'Declare a variable as a FileDialog object. 
Dim fd As FileDialog 
'Declare a variable for the directory path. 
Dim directory As String 
'Set the directory path 
directory = "C:\Documents and Settings\<USER>\Desktop\PitchTemplateLibrary\Quotes" 
'Create a FileDialog object as a File Picker dialog box. 
Set fd = Application.FileDialog(msoFileDialogFilePicker) 

'Declare a variable to contain the path 
'of each selected item. Even though the path is aString, 
'the variable must be a Variant because For Each...Next 
'routines only work with Variants and Objects. 
Dim vrtSelectedItem As Variant 

'Use a With...End With block to reference the FileDialog object. 
With fd 
    'Change the initial directory\filename 
    .InitialFileName = directory 
    'Use the Show method to display the File Picker dialog box and return the user's action. 
    'The user pressed the button. 
    If .Show = -1 Then 

     'Step through each string in the FileDialogSelectedItems collection. 
     For Each vrtSelectedItem In .SelectedItems 

Dim fs As Object 
Dim f As Object 
Const ForReading = 1, ForWriting = 2, ForAppending = 3 

Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.OpenTextFile(vrtSelectedItem, 1, 0) 

' Put the text into the text box 
oShape.TextFrame.TextRange.Text = f 'oShape IS EMPTY, BUT CAN"T SEE WHY. 

     Next vrtSelectedItem 
    'The user pressed Cancel. 
    Else 
    End If 
End With 

' Until we release the memory used by oShape 
Set oShape = Nothing 

ActiveWindow.Selection.ShapeRange(1).Name = OldName$ 

    Else 
    ' PowerPoint is not in slide view. 
    MsgBox "You must be in slide view to run this macro.", _ 
     vbInformation 
    End If 


'Set the object variable to Nothing. 
Set fd = Nothing 

End Sub

來源

2013-07-12 Boyplunder

也許你可以爲MS-字添加你的代碼作爲參考。這將有助於理解你正在嘗試做什麼 –

獲取文本並將其放在Powerpoint中的形狀中。在Powerpoint中，你想要添加文本嗎？什麼是「方法」是不同的？發佈一些Word代碼！ –

嗨，我添加了工作代碼，讓您更好地瞭解我正在嘗試做什麼。任何幫助或建議，將不勝感激。 – Boyplunder

PowerPoint中的代碼來設置文本框的文本，或其他形狀，方法是：

ActivePresentation.Slides(1).Shapes(3).TextFrame.TextRange _ 
    = "Hello there"

來源

2013-07-12 12:54:32

謝謝AndyG。看看我添加到我原來的問題的工作代碼。您的意見將不勝感激。 – Boyplunder

我想能夠點擊幻燈片上的文本字段，然後點擊自定義菜單上的導入按鈕。然後我選擇對話框中的一個文本文件，並將文本導入到我指定的區域。

' CYA 
If Not ActiveWindow.Selection.Type = ppSelectionText Then 
    MsgBox "Select some text first" 
    Exit Sub 
End if 

' You might also want to allow for the case where the user has 
' selected a rectangle or other shape rather than a text range. 
' You could add the text to the shape as well. 

With ActiveWindow.Selection.TextRange 
    .TextFrame.Text = "Text you've read from the chosen file" 
End With

來源

2013-07-12 16:59:43

如何使用vba將文本文件導入PowerPoint？

回答

相關問題