Excel VBA質問箱 IV

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

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


31573 / 76732 ←次へ | 前へ→

【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

0 hits

【50404】図形をセル内の指定位置へ移動したい 07/7/23(月) 23:42 質問
【50406】Re:図形をセル内の指定位置へ移動したい Ned 07/7/24(火) 1:57 発言
【50410】Re:図形をセル内の指定位置へ移動したい 07/7/24(火) 6:13 お礼
【50411】Re:図形をセル内の指定位置へ移動したい 07/7/24(火) 7:14 質問
【50412】Re:図形をセル内の指定位置へ移動したい Ned 07/7/24(火) 11:23 発言
【50419】Re:図形をセル内の指定位置へ移動したい 07/7/24(火) 19:28 発言
【50420】Re:図形をセル内の指定位置へ移動したい 07/7/24(火) 19:45 お礼
【50425】Re:図形をセル内の指定位置へ移動したい Ned 07/7/24(火) 20:46 発言
【50430】Re:図形をセル内の指定位置へ移動したい 07/7/24(火) 21:55 お礼
【50413】Re:図形をセル内の指定位置へ移動したい 駿 07/7/24(火) 12:23 回答
【50414】Re:図形をセル内の指定位置へ移動したい 駿 07/7/24(火) 12:25 回答
【50422】Re:図形をセル内の指定位置へ移動したい 07/7/24(火) 20:10 お礼

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