VBScriptを使用してPowerPointを作成し、線の色を変更する

Question

VBScriptを使用して線を作成し、線の色を黒に変更したいちょうどサンプルコードは問題ありません。ありがとう。

Answer 1

行を入力して色を変えて記録しました。これがVBAコードです。

ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select 
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select 
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select 
With ActiveWindow.Selection.TextRange 
    .Text = "Hi There" + Chr$(CharCode:=13) 
    With .Font 
     .Color.SchemeColor = ppForeground 
    End With 
End With 
ActiveWindow.Selection.TextRange.Font.Color.SchemeColor = ppForeground 
ActiveWindow.Selection.TextRange.Font.Color.SchemeColor = ppAccent2 

に凝縮させることができる

ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select 
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select 
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select 
    With ActiveWindow.Selection.TextRange 
     .Text = "Hi There" + Chr$(CharCode:=13) 
     With .Font 
      .NameAscii = "Arial" 
      .NameComplexScript = "Arial" 
      .Size = 32 
      .Bold = msoFalse 
      .Italic = msoFalse 
      .Underline = msoFalse 
      .Shadow = msoFalse 
      .Emboss = msoFalse 
      .BaselineOffset = 0 
      .AutoRotateNumbers = msoFalse 
      .Color.SchemeColor = ppForeground 
     End With 
    End With 
    ActiveWindow.Selection.TextRange.Font.Color.SchemeColor = ppForeground 
    ActiveWindow.Selection.TextRange.Font.Color.SchemeColor = ppAccent2 

そして、型なしと遅延バインディングを使用するためにそれを変換します。また、名前付きパラメータを位置に変換します。定数をそれらの値に置き換えます（Powerpointのオブジェクトブラウザで検索します）。アプリケーションオブジェクトはグローバルではないので、メソッドとプロパティの前に​​を入れてください。

Set PP = CreateObject("PowerPoint.Application") 
pp.ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select 
pp.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select 
pp.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(1, 0).Select 
With pp.ActiveWindow.Selection.TextRange 
    .Text = "Hi There" + Chr$(13) 
    With .Font 
     .Color.SchemeColor = 2 
    End With 
End With 
ActiveWindow.Selection.TextRange.Font.Color.SchemeColor = 2 
ActiveWindow.Selection.TextRange.Font.Color.SchemeColor = 7 

上記は有効なVBScriptとVBAの両方です。

Answer 2

VBAの録音構文を標準のVBA/VBScriptに変換する方法を説明しました。

あなたの行動を記録すると、PowerPointがそれを行います。

Alt + T、M、R（録音を停止するのと同じキー）。記録されたコードを見るには、Alt + F11を押してください。上記のように変換します。

これは、線を描画するパワーポイントです。

Sub Macro1() 
' 
' Macro recorded 15/08/2016 by User 
' 

    ActiveWindow.Selection.SlideRange.Shapes.AddLine(59.5, 219#, 671.88, 219#).Select 
    With ActiveWindow.Selection.ShapeRange 
     .Line.ForeColor.SchemeColor = ppForeground 
     .Line.Visible = msoTrue 
    End With 
End Sub 

したがって、定数を値に置き換えます。上記の投稿のようにcreateobjectを使用してアプリオブジェクトを追加します。