2

私はこの種のことを Word で行うことに慣れていますが、PowerPoint で同じ種類のことを行う方法はまったく異なります。

テキスト ファイルのリストを含むネットワーク フォルダがあります。スライドのテキスト フィールドをクリックしてから、カスタム メニューのインポート ボタンをクリックできるようにしたいと考えています。次に、ダイアログでテキスト ファイルの 1 つを選択すると、指定した領域にテキストがインポートされます。

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
4

2 に答える 2

0

TextBox またはその他の Shape のテキストを設定する PowerPoint コードは次のとおりです。

    ActivePresentation.Slides(1).Shapes(3).TextFrame.TextRange _
    = "Hello there"
于 2013-07-12T12:54:32.943 に答える