如何使用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？

回答

相关问题