Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1347 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【74974】図形の枠を消す
質問  マキチャン  - 13/11/4(月) 10:17 -
引用なし
パスワード
   こんにちは
以下のような感じで図形を動かしています。
この時、セレクトされた図形の周りに
枠ができますが、これを消すことはできるでしょうか？

通常、ＥＸＣＥＬのシート上の図形をクリックしたときに
現れる図形の周りの枠です。

枠が現れたまま動くのでどうしても消したいのですが。


Dim Shp As Shape
Dim WS As Worksheet
Dim f As Long

　　 ActiveSheet.Shapes.Range(Array("はんこＡ", "SA")).Select
　　Selection.ShapeRange.GROUP.Select
　 Selection.ShapeRange.Name = "あああ"


Set WS = Worksheets("Sheet2")
Set Shp = WS.Shapes("あああ")
With Shp
　　　For f = 1 To 100
　　　　　　.IncrementLeft -1
　　　　　　.IncrementTop 1
　　　　　　DoEvents
　　　　　　
　　　　　　　Next
End With

よろしくお願いします。

ＥＸＣＥＬは２０１０です。
【74975】Re:図形の枠を消す
発言  γ  - 13/11/4(月) 13:11 -
引用なし
パスワード
   図形を選択しない状態で実行してください。
方法はご自分で工夫してください。
【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
【74984】Re:図形の枠を消す
お礼  マキチャン  - 13/11/5(火) 14:20 -
引用なし
パスワード
   γさん　ご返事ありがとうございました。

ご指摘の通り、該当の図形から選択を
外せばとりあえずは可能だと気付き
ほかのセルを選択してみてOKになりました。

でも、これは、おっしゃる通り、
その場しのぎの逃げで、すっきりしなかったのですが、
今回教えていただいた方法を、じっくり勉強してみます。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1347 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free