使用VBScript創建一條線並更改幻燈片中的線條顏色

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 
      .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 

哪些可以濃縮到

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 

然後將其轉換爲無類型和使用後期綁定。還將命名參數轉換爲位置。將常量替換爲它們的值（在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查看錄製的代碼。然後如上轉換。

這是powerpoint記錄畫一條線。

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添加一個應用程序對象，如上面的帖子。