Excel VBA質問箱 IV

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

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


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

31579 / 76738

←次へ　｜　前へ→


	【50406】Re:図形をセル内の指定位置へ移動したい

Ned - 07/7/24(火) 1:57 -


	引用なし

	パスワード

▼岳さん：こんにちは。 >この図形（赤丸）を各セルの上下方向の中間、左端から一定距離の位置に表示するには ActiveSheet.Shapes(1).Left = Range("E20").Left + 10 ActiveSheet.Shapes(1).Top _ 　　= Range("E20").Top + (Range("E20").Height - ActiveSheet.Shapes(1).Height) / 2 こんな感じです。 WithステートメントとRange型変数を使って書くと以下。 Sub sample() 　　Dim r As Range 　　　　Set r = Range("E20") 　　With ActiveSheet.Shapes(1) 　　　　.Left = r.Left + 10 　　　　.Top = r.Top + (r.Height - .Height) / 2 　　End With 　　Set r = Nothing End Sub