Excel VBA質問箱 IV

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

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


31559 / 76732 ←次へ | 前へ→

【50420】Re:図形をセル内の指定位置へ移動したい
お礼    - 07/7/24(火) 19:45 -

引用なし
パスワード
   ▼Nedさん:こんいちは
送った直後にミスに気づきました。
初期の目的達成しました。今後も宜しくお願いします。

>[2]最初に教えて頂いたコードを指定範囲でループさせる
>
>Sub 練習1()
>
> Dim r As Range
> Dim i As Integer
>  
>  For i = 1 To 5
>  With ActiveSheet.Shapes(i)
>    .Left = Cells(19 + i).Left + 10
>    .Top = Cells(19 + i).Top + (Cells(19 + i).Height - .Height) / 2
>  End With
>  Next
>  
>End Sub
>
>上記コードでやったら図形が消えてしまいました。

セルの列指定していませんでした。(アホみたい)
3 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 お礼

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