Excel VBA質問箱 IV

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

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


58794 / 76732 ←次へ | 前へ→

【22661】Re:写真整理したい
質問  HK  - 05/2/25(金) 22:24 -

引用なし
パスワード
   ▼やす さん:
>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) '左の位置
>
>既存の画像の後ろに新しい画像が追加されるはずです。
やす さんこんばんわ お手間を取らして申し訳ありません。
試してみますと、最上位に画像が貼り付かなくて、一枚分下にずれてしまいます。どうすれば一番上に画像が貼り付くのでしょうか。

0 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 お礼

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