Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4653 / 76732

←次へ　｜　前へ→


	【77697】Re:四角形吹き出しの先っぽにあたる点がどのセル上にあるか調べたい

γ - 15/11/30(月) 22:35 -


	引用なし

	パスワード

こんなことでしょうか。
それを選択状態にして実行してください。

Sub test()
　　Dim sp As ShapeRange
　　Dim a　As Adjustments
　　Dim wTop As Double, wLeft As Double, wWidth As Double, wHeight As Double
　　Dim l As Double, t As Double
　　Dim ovl As Shape
　　
　　Set sp = Selection.ShapeRange
　　wTop = sp.Top
　　wLeft = sp.Left
　　wWidth = sp.Width
　　wHeight = sp.Height
　　
　　Set a = sp.Adjustments
　　l = wLeft + 0.5 * wWidth + a.Item(1) * wWidth
　　t = wTop + 0.5 * wHeight + a.Item(2) * wHeight
　　Set ovl = ActiveSheet.Shapes.AddShape(msoShapeOval, l, t, 1, 1)
　　MsgBox ovl.TopLeftCell.Address
　　ovl.Delete
End Sub

5 hits

▼

【77696】四角形吹き出しの先っぽにあたる点がどのセル上にあるか調べたい mumu 15/11/30(月) 21:56