Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(指定なし : 指定なし)
Re:写真帳に写真を貼り付けるには。 の eco2019さんへ
投稿日時: 19/07/16 00:12:43
投稿者: simple

[写真帳に写真を貼り付けるには。]
https://www.moug.net/faq/viewtopic.php?t=78443
 
前回の
https://www.moug.net/faq/viewtopic.php?t=78431
でもそうでしたが、
提示されたコードをあなたが評価して、結果を返して欲しいのです。
それによって閲覧者も学習になるわけです。
そうしたコメントは、質問者さんが掲示板の閲覧者に対してできる貢献なのですから。
中途半端で終わらないで下さい。
 
>助かります。お世話になりました。(前回のスレッドから)
コードをもらって、はい助かります、はい終了、は無いでしょう。
 
「家に帰るまでが遠足です。」ww ちょっと違うけど。

回答
投稿日時: 19/07/16 08:02:50
投稿者: WinArrow
投稿者のウェブサイトに移動

閉じちゃったのか???
 
せっかく作ったので
OFFSETを使うにしても、使わないにしても
見た目通りに貼付けセルを確実に指定できる方法を提案します。
 
以下は、貼付先左上セルアドレスを検証するためのものですが、
Debug.Print の行を、単独画像貼付けプロシジャ呼び出しに変更すればよいでしょう。
 

Sub test()
Dim 列(1 To 2), ColX As Long
Dim 行間隔 As Long
Dim picFolder As String, picFile, picx As Long
Dim 行 As Long

    
    
    列(1) = "F": 列(2) = "P"
    行間隔 = 22 - 4
    With Sheets("一覧表")
        picFolder = .Range("パス").Value
        picFile = .Range("W6:W" & .Range("W" & .Rows.Count).End(xlUp).Row).Value
    End With
    
    行 = 4
    For picx = LBound(picFile) To UBound(picFile)
        ColX = IIf((picx Mod 2) = 1, 1, 2)
        行 = 行 + 行間隔 * IIf(ColX = 1, 0, 1)
        Debug.Print Cells(行, 列(ColX)).Address
    Next
End Sub


 
見てくれるといいが・・・

トピックに返信