| |
その場しのぎの対応なら、
どこかのセルを選択して、図形から選択をはずせばいいですね。
・グループ化と移動を分離し、しかも
・移動する際に、図形が選択されている状態も前提に入れると、
次のような方式が考えられますね。
参考にしてください。
Sub main()
'makeGrouping
move
End Sub
Sub makeGrouping()
Dim Shp As Shape
Set Shp = ActiveSheet.Shapes.Range(Array("円/楕円 1", "円/楕円 2")).Group
Shp.Name = "abc"
End Sub
Sub move()
Dim Shp As Shape
Dim f As Long
Set Shp = ActiveSheet.Shapes("abc")
If Not TypeName(Selection) = "Range" Then
Shp.TopLeftCell.Select
End If
With Shp
For f = 1 To 100
.IncrementLeft -1
.IncrementTop 1
DoEvents
Next
End With
End Sub
|
|
γ
- 13/11/4(月) 19:42 -
