Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7344 / 76732 ←次へ | 前へ→

【74976】Re:図形の枠を消す
発言  γ  - 13/11/4(月) 19:42 -

引用なし
パスワード
   その場しのぎの対応なら、
どこかのセルを選択して、図形から選択をはずせばいいですね。

・グループ化と移動を分離し、しかも
・移動する際に、図形が選択されている状態も前提に入れると、
次のような方式が考えられますね。
参考にしてください。

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
297 hits

【74974】図形の枠を消す マキチャン 13/11/4(月) 10:17 質問
【74975】Re:図形の枠を消す γ 13/11/4(月) 13:11 発言
【74976】Re:図形の枠を消す γ 13/11/4(月) 19:42 発言
【74984】Re:図形の枠を消す マキチャン 13/11/5(火) 14:20 お礼

7344 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free