Excel VBA質問箱 IV

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

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


31567 / 76732 ←次へ | 前へ→

【50412】Re:図形をセル内の指定位置へ移動したい
発言  Ned  - 07/7/24(火) 11:23 -

引用なし
パスワード
   ▼岳 さん:
まずは、For Each...Next ステートメントなどの基本構文は理解されてますか?

Sub sample2()
  Dim r As Range
  
  For Each r In Range("E20:E24")
    Debug.Print r.Top, r.Height, r.Left
  Next r
End Sub

Sub sample3()
  Dim i As Long
  
  For i = 1 To 5
    With Cells(i + 19, 5)
      Debug.Print .Top, .Height, .Left
    End With
  Next i
End Sub

このLoop処理内で、既存のShapeを移動させるか、新たに追加するか。
既存のShapeを移動させる場合は、そのShapeの指定をどうするか。
インデックス(順番)で指定するのか、名前+数値の変数で指定するのか。

Sub sample4()
  Dim s As Shape
  
  For Each s In ActiveSheet.Shapes
    Debug.Print s.Name, s.Top, s.Height, s.Left
  Next s
End Sub


または、既に大まかに配置したShepeの微調整なら、セル範囲を指定せずに、
ShepeのTopLeftCell プロパティでShape自身の左上セルを取得して
そのセルの位置情報を元にShapeの位置を微調整する方法もあります。
1 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 お礼

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