Question

我有自定义在powerpoint中创建美国地图。

IsRole

这一切都很好，但问题是现在我无法选择整个数字。所以我正在寻找一种方式，所以我合并了一个图形，我可以在屏幕上拖动。

有关我如何做到这一点的任何想法？优选在VBA中

Answer 1

您的主要问题是您要添加许多单独的行。为了使代码按照您想象的方式工作，您必须以某种方式将形状添加为单行。为此，请从此处更改您的子项：

Sub ArrayLoop(array1, array2, amountOfLine)
   Dim i As Long

   For i = 0 To amountOfLine
      With ActivePresentation.Slides(1).Shapes.AddLine(BeginX:=array1(i), BeginY:=array2(i), EndX:=array1(i + 1), EndY:=array2(i + 1)).Line
         .DashStyle = msoLineDashDotDot
         .ForeColor.RGB = RGB(50, 0, 128)
      End With
   Next
End Sub

到此：

Sub ArrayLoop(array1, array2)
   'you will need a single array of points for the call.
   'whether you want to pass in 2 arrays and then merge them
   'or pass in a single merged array is up to you

   With ActivePresentation.Slides(1).Shapes.AddPolyline(<an array of points>).Line
      .DashStyle = msoLineDashDotDot
      .ForeColor.RGB = RGB(50, 0, 128)
   End With
End Sub

您需要调整点数组才能使其正常工作。

在powerpoint中合并自定义数字

1 个答案: