Excel VBA質問箱 IV

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

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


58802 / 76732 ←次へ | 前へ→

【22653】Re:写真整理したい
発言  やす  - 05/2/25(金) 16:34 -

引用なし
パスワード
   HKさんこんにちは
>>  
>>  TopSetVal = 30 '最上位の位置
>>  LeftSetVal = 0 '左の位置

ここを、以下のようにしてみては?

  Dim PicCount As Long
  PicCount = ActiveSheet.Shapes.Count
  TopSetVal = 30 + (PicCount Mod 5) * (z1 + 10) '最上位の位置
  LeftSetVal = Int(PicCount / 5) * (z1 + 10) '左の位置

既存の画像の後ろに新しい画像が追加されるはずです。
1 hits

【22472】写真整理したい KH 05/2/22(火) 10:38 質問
【22474】Re:写真整理したい IROC 05/2/22(火) 11:36 回答
【22501】Re:写真整理したい HK 05/2/22(火) 23:02 質問
【22504】Re:写真整理したい ponpon 05/2/22(火) 23:52 発言
【22568】Re:写真整理したい HK 05/2/23(水) 23:14 質問
【22572】Re:写真整理したい ponpon 05/2/24(木) 0:13 発言
【22589】Re:写真整理したい こうちゃん 05/2/24(木) 14:01 回答
【22601】Re:写真整理したい ponpon 05/2/24(木) 18:19 発言
【22638】Re:写真整理したい HK 05/2/25(金) 8:58 質問
【22653】Re:写真整理したい やす 05/2/25(金) 16:34 発言
【22661】Re:写真整理したい HK 05/2/25(金) 22:24 質問
【22690】Re:写真整理したい やす 05/2/28(月) 13:59 発言
【22703】Re:写真整理したい HK 05/2/28(月) 21:34 質問
【22718】Re:写真整理したい やす 05/3/1(火) 9:27 回答
【22719】Re:写真整理したい HK 05/3/1(火) 9:44 質問
【22725】Re:写真整理したい やす 05/3/1(火) 11:20 回答
【22727】Re:写真整理したい HK 05/3/1(火) 12:10 お礼

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