| |
セル範囲のオブジェクト（オートシェイプ）を全て選択する方法を教えていただきたいのですが、、
ちなみに某サイトから拝借して一部編集した下の記述ですと、最後のオブジェクトのみが選択されてしまうので、
おそらく順順に選択していって前のオブジェクトの選択は、選択するたびに解除していっていると思うのですが、すべての選択を残す方法があれば教えてください＞＜
Private Sub 全て選択ボタン_Click()
Sub Sample()
Dim S As Shape
Dim x1 As Integer
Dim y1 As Integer
Dim x2 As Integer
Dim y2 As Integer
x1 = Selection.Left
y1 = Selection.Top
x2 = x1 + Selection.Width
y2 = y1 + Selection.Height
For Each S In ActiveSheet.Shapes
If S.Left >= x1 And S.Top >= y1 And _
S.Left + S.Width <= x2 And S.Top + S.Height <= y2 Then
S.Select
End If
Next
End Sub
|
|
初心者ＴＴ
- 07/6/21(木) 13:02 -
