EXCEL VBA利用で以下組まれてます。
Case "P32"
For Each sp In ActiveSheet.Shapes
If sp.Name = Target.Address Then
sp.Delete
Exit Sub
End If
Next
Set sp = ActiveSheet.Shapes.AddShape(msoShapeOval, 147#, 434.25, 9.75, 9#)
sp.Fill.Visible = msoFalse
sp.Name = Target.Address
セルP32ダブルクリックで、
P32内の頭文字あたりに、挿入図形の円(黒ふち塗りつぶしなし)が入り、
選択の記号に○が入る様に組まれているのですが…
8行目(msoShapeOval, 147#, 434.25, 9.75, 9#)の
147#, 434.25, 9.75, 9#部分があまり意味がわかりません。
座標をとって、図形が入る様になるのであれば、
座標の取り方を知りたいのですが…方法があれば教えていただきたいです。
宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
以下のようになります。
'Shapes.AddShape(Type, Left, Top, Width, Height)
この元になるのは、セルのオブジェクトです。
Left, Top,
左位置、上位置 で、場所が決まります。
Width, Height
幅と高さで大きさが決まります。大きさは、最初から決めていますので、後は、左と上の位置だけを決めればよいわけです。
'//シートモジュール
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Adr As String
Dim sp As Shape
Cancel = True
Adr = Target.Address(0, 0)
For Each sp In Me.Shapes
If sp.Name = Adr Then
sp.Delete
Exit Sub
End If
Next
With Target '座標のとり方
With Me.Shapes.AddShape(msoShapeOval, .Left, .Top + 2, 9.75, 9#)
.Fill.Visible = msoFalse
.Name = Adr
End With
End With
End Sub
No.1
- 回答日時:
>座標をとって、図形が入る様になるのであれば、
座標を横147、縦434.25で取って図形が入ってますよ。
それとも
Set sp = ActiveSheet.Shapes.AddShape(msoShapeOval, Target.Column * 54 - 30, Target.Row * 13.5 - 11, 9.75, 9#)
のことですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) エクセル VBAについて 2 2022/05/16 16:33
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 指定の条件に応じたセルの場所に〇印(図形)を描く 2 2022/11/08 15:26
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) 複数セルに〇印をつけるマクロ 4 2022/09/07 05:33
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
グラフの交点の求め方(Excel)
-
画像回転について
-
始点、終点の二つの座標と半径...
-
OpenCvSharp4による画像判定解...
-
以下のプログラムは重心を求め...
-
直線上にある点の座標の求め方
-
エクセルで回転する座標の出し方
-
オートシェイプ円弧の中心点、...
-
水素分子の体積要素
-
エクセルである点からの距離で...
-
プログラミングの問題について...
-
SetWindowOrgとSetViewportOrg...
-
タッチパッドのタッチ座標取得
-
c#で直線が図形内にあるか判定
-
visualbasic でform上に正三角...
-
3d 法線ベクトル計算
-
住所から経緯経度を出したい
-
OpenGLの「見える範囲」は何故...
-
図形が重なりあっているかどうか
-
マインクラフト(pc版)で座標...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
グラフの交点の求め方(Excel)
-
マインクラフト(pc版)で座標...
-
エクセルで回転する座標の出し方
-
エクセルである点からの距離で...
-
3次元空間上の2つの座標から...
-
閉図形の座標の配列が右回りか...
-
ダイアログ内コントロールの位...
-
始点、終点の二つの座標と半径...
-
座標を持った平面範囲に座標を...
-
空間上の二点を結ぶ直線上に任...
-
エクセルシート上のマウスポイ...
-
多角形の内部かどうか判定する方法
-
ワード上Shapeの位置情報を統一...
-
Excel VBA で自在に図形を変化...
-
OpenCvSharp4による画像判定解...
-
C言語 配列で座標
-
シーケンサー(PLC?)で制...
-
以下のプログラムは重心を求め...
-
交差する2線分の交点座標の求め方
-
VB6のPrinter.ScaleWidth に対...
おすすめ情報