0

パワーポイント2010

ループ内の新しい形状ごとに選択しようとしています。ただし、ループ内のすべての形状が選択されているわけではありません。常に最後の形状のみが選択されます。なにが問題ですか？

ありがとうございました

Private Sub AddShapeRectangleOnSelectedText()

  Dim oText As TextRange
  Dim linesCount As Integer
  Dim myDocument As Slide
  Dim i As Integer
  Dim s As Shape

  ' Get an object reference to the selected text range.
  Set oText = ActiveWindow.Selection.TextRange
  Set myDocument = ActiveWindow.View.Slide
  linesCount = oText.Lines.Count

  For i = 1 To linesCount
    Set s = myDocument.Shapes.AddShape(msoShapeRectangle, _
    oText.Lines(i).BoundLeft, oText.Lines(i).BoundTop, oText.Lines(i).BoundWidth, oText.Lines(i).BoundHeight)

    With s
     .Select
     .Fill.Visible = msoTrue
     .Fill.Solid
     .Fill.ForeColor.RGB = RGB(255, 255, 153)
     .Fill.Transparency = 0.7
     .Line.Visible = msoFalse
     .Line.Transparency = 0#
    End With
  Next

サブ終了

4

1 に答える 1

0

Select選択範囲が前の選択範囲を置き換えるかどうかを示すオプションのパラメーターがあります。

このようにコードを変更できます

.Select IIf(i = 1, True, False)
于 2013-03-25T21:22:21.647 に答える