R写真台紙便利に使わせていただいております。
Excel2007とVistaだと写真貼り付け時に左より3ページぐらいから写真位置がずれてしまい、写真の上に写真が配置されてしまいます。これは未対応のため仕方ないことでしょうか。Xpと2003では問題なかったので残念です。ソフト以外にハードとかにも関係があるのでしょうか、TOSHIBA dynabook TX/67Cです。

takanashiさんこんにちは。
私の周辺でエクセル2007を使用しているユーザーが見当たりませんでしたので、推測になるのを前提で参考にしてください。

エクセルのマクロコードは、バージョンによって少しずつ異なるのはよくあります。
ですがあまりに大きく変わると業務に差し支えてしまうのはマイクロソフトもある程度承知していてくれるようでして、基本的には仕様の変更というよりは機能が付加されることが多いようです。

今回takanashiさんがおっしゃっている貼り付けた写真の座標は結構簡単な定義で拾っているので、これもちょっとした改造で対応できるはずです。
（十中八九ハードとは関連がなく、エクセルのバージョンだと思います）

定義部分は標準モジュール内「sub_routine」の130行目以降（import_内）で貼り付けるセルを計算しています。
y = (j Mod 3) * 10 + 5 + Int(j / 18) * 40
x = (Int(j / 3) * 16 + 11) - Int(j / 18) * 96
これはR写真台紙の書式にあわせて貼り付けるセルを関数化しているだけです。
（※貼り付けるシートにセルや行を挿入・削除等してしまうと当然あばれてしまいます）
ここで座標があばれるのは非常に考えにくいのでここで計算したx,yの取り扱いを見てみます。

これは同じく標準モジュール内「sub_routine」の17行目（Paste_Image内）で具体的な座標として使っています。
.Left = Cells(y, x).MergeArea.Left
.Top = Cells(y, x).MergeArea.Top
何か起きているとしたらここが一番怪しいです。

写真を貼り付ける対象セルが、複数のセルを結合しているために「MergeArea」を指定しているのですが、これたぶんなくても大丈夫です。
つまり「sub_routine」の17,18行目を
.Left = Cells(y, x).Left
.Top = Cells(y, x).Top
としてみてください。

あくまでもカンなのでうまくいかない可能性も大です。
そのときはまたご遠慮なく書き込んでください。
がんばってみますので。

追記
「ずれる」「写真の上に写真」が具体的にどうなのかを教えてもらえるともう少しヒントになりそうです。
たとえば貼り付けられた写真のセル位置がずれる、とか、写真のサイズが補正されない、とか。

こんばんは、
お返事いただきありがとうございます。

追記部分のずれるについて、
1ページから3ページと
7ページから9ページについては
写真の張り付く位置が少しずつ右側にずれていきます。
4ページから6ページと
10ページから12ページ分の写真は、
4ページと10ページ部分に3枚重なった状態で
張り付いてしまいます。

少しずつずれていく為に貼り付け位置の計算がうまく出来ないのかもしれません。

マクロコードの編集はなかなか時間が取れないので試していません。

時間が有るときに試してみます。
2003と2007では画面周りの雰囲気が違うのでなかなか慣れることができません。
マクロの実行は互換モードで実行されている為うまく実行できないのでしょうか？

書き込みを頂いたマクロコードの修正で
.Left = Cells(y, x).MergeArea.Left
.Top = Cells(y, x).MergeArea.Top
を
.Left = Cells(y, x).Left
.Top = Cells(y, x).Top
に変更してみましたが、
やはり同じ状態です。
３ページ分の９枚の写真は各ページに貼りしきますが、
４ページには、６ぺージまでの９枚の写真が
重なって張り付いてしまいます。
修正する方法がありましたらお願いします。

takanashiさんこんにちは。
そのうち誰か私の知人が2007版を購入して使用し始めるだろうと思っているのですがこれがなかなか
エラーが出ないで貼り付ける場所が変、ということなのでたぶん2007が試せればすぐ解決するとは思うのですが。

現状の情報からあり得る可能性を考えてみました。
　1.セルから座標を取得するコードの仕様がxpと2007で異なっている
　2.画像をセルに貼り付けるコードの仕様がxpと2007で異なっている
　3.セル番地のカウント方法がxpと2007で異なっている
　4.何かしらの原因でR写真台紙の書式が配布版から変更されている
　5.貼り付ける対象セルの計算式が何かしらの原因で書き換えられている
といったところではないかと。

4と5は再度ダウンロードして実行することで確認できますので念のため試してみてください。
残りの1,2,3は2007さえ試せれば直せるのですが。

あと確認なのですが
a.貼り付け位置が狂うのは毎回同じ仕様で再現しますか
b.>3枚重なった状態 これは完全に重なりますか、それとも貼り付けられたセルはずれていますか
c.ずれはx座標についてだけですか。y座標は問題ないですか

よければ教えてください。

質問事項の３点について

＞a.貼り付け位置が狂うのは毎回同じ仕様で再現しますか
現在ダウンロードしているものは毎回再現します。
＞b.3枚重なった状態 これは完全に重なりますか、それとも貼り付けられたセルはずれていますか
４ページ分と５ページ分は少しＸ方向にずれますが６ページ分は５ページ分と完全に重なります。
＞c.ずれはx座標についてだけですか。y座標は問題ないですか
Ｙ方向についても全体で少し伸び気味になります。特に問題にはならない範囲です。
１ページの印刷範囲の中に納まります。

以上です、分かりましたらよろしくお願いします。

レポートありがとうございます。
aとbから推察するに、どうもセル座標の取り扱いに仕様変更があったのかなと思われます。
それなら計算式だけでなんとかなるだろうなとは思うのですが．．．．

cは、たぶん印刷結果は大丈夫だと思います。
かつて印刷すると上下方向が縮んでしまって
それ対策として縦横を調整したのですが
そのときに画面では少し縦長になってしまいました。
どこかで1.118という数値を使っています。
これがわざわざ縦に引き伸ばしている掛け率です。
印刷で縦方向が不自然な場合はこの値を調整すればOKです。

話は戻って、貼り付ける座標を算定しているのは
標準モジュール内「sub_routine」の上から数行目、
絶対行では130,131行目の
y = (j Mod 3) * 10 + 5 + Int(j / 18) * 40
x = (Int(j / 3) * 16 + 11) - Int(j / 18) * 96
と、この前後にあるあたりのはずです。
ここで最大360枚を順に座標化してます。
1ページ分を36枚としてjにページ数を代入しておいて
そこから切り出される0〜35の数値をセル位置に変換しています。

エクセル2007さえあれば試行錯誤できますが
2007が手許に無い現状としては
この辺が推理でたどり着ける行き止まりなような

お世話になります。
R写真台紙では、L版サイズトリミングして貼り付けされるとのことですが、縦撮りした画像はその一部しか見えない形で貼り付けられます。首を横にして観れば良いのですが、その１枚のみを小さくても縦方向で貼り付ける事は可能でしょうか。使用者サイドの操作では無理でしょうか。

wakuiさんこんばんは。
お久しぶりです。

さて早速貼り付け部分のソースを見てみました。
画像のリサイズとトリミングは確か標準モジュール内の「Paste_Image」で片付けてますのでここの改造でいけるんじゃないかと。
素の状態ではなんともならないのでここの改造が必要です。

ところで縦向きの写真というのは元から縦長ではなくて何かしらの画像処理ソフトで回転させた写真ですよね

と言いますのも、まだR写真台紙の更新が頻繁だった頃に私も縦写真についても考えたんです。
が、カメラを縦にしても（私の知るデジカメでは）画像は横なんですよね。
しかも旧来の銀塩写真を貼る工事用アルバムも横にしか挿入できないんだよなと思って現仕様に落ち着きました。

そうなると、撮った写真をR写真台紙で一括取り込みすることを前提に全部横向きで写真を撮ればいいや、と考えて今に至ってました。

が、wakuiさんが書かれたように、縦長の画像をごっそりトリミングするのも確かに気持ちが悪いので改良してみました
アスペクト比が縦長の場合はトリミングせずに縮小して貼るバージョンです。
お試し下さい。
DownLoad→[Link]

修正版ありがとうございました。
また覚えていていただき、ありがとうございます。お久しぶりです。
どういう状況かといいますと、建物外観を撮影する際通常に構えると入りきらないので、、カメラを縦に構えて撮影しました。それをwindows標準の画像ﾋﾞｭﾜｰで再生すると、例えば1600*1200の横向きで表示されるので90°回転させた訳です。そのjpgをR写真台紙に貼り付けますと上下が切れて張り付く、という状況でした。Hinoさんが思われたような高度な操作でありません。
修正版では建物の高さ方向全体が表示されました。が、なんとなく高さ方向に圧縮されている感じです。印刷して確認できてないので、錯覚かもしれませんけど。
早急に対応いただきありがとうございました。（長くてすみません）

なるほど。
Windows標準のアレですね。
そういえばあれは手軽に回転させられましたね
とりあえず改良して簡単にテストはしましたけれど不具合とかありましたら教えていただけると助かります。
しばらく様子を見てひさびさに改訂版で登録しようかと思いますので

P.S
レスが長いのは私が一番

お世話様です。wakuiです。
R写真台紙修正版で作業後、再度開いたら
何をしたか不明ですが１シート目の台紙が全部くっついて表示されてしまいました。サンプル画像又はそのデータを見ていただきたいのですが、どうすればいいでしょうか。
（また最初から貼り直せばいいことではあるんですけど。）

少し前に似たような症状が身近にも起きていたような記憶が
その時は原因が解らないままなぜか解消したような淡い記憶も
保存するまでは問題ないですか？
ひょっとしてPCのメモリとかエクセルにサービスパックが当たっていないとかの可能性があり得ます。
もちろんR写真台紙に問題がある可能性も

そうですか・・。サービスッパックは
毎回入れているはずですし・・。
正常なうちに印刷はしますが、データとして残す時困るんですよね。

だいぶ間が空きました

印刷出来ると言うことは、R写真台紙のマクロの仕事は終わってますのでやはりエクセル本体の問題と見てよさそうです。
念のためですが、サービスパックは「Windows」のじゃなくて「Excel」の、ですよね
それでも問題が解決しない時は、撮影時の画素数を落とすのも効くかもしれません。
いまどきの7メガピクセルとかが数十枚になるとファイルも重くなるので、エクセルが不具合を出す確率も高くなると思われます。

R写真台紙の修正に参考にならずすみません。別のファイルを作成し、出力しすませました。ファイルサイズが90M近くにもなったので元のは削除してしまいました。結局Excelの問題でしょう。（実は再度そのファイルを開こうとしたら、反応しませんでした。困った！）

wakuiさんこんばんは。
R写真台紙はそもそも現実の紙代わりで作り始めたツールなので、ここらで原点に戻ってもっとシンプルに使える方法も組んでみたいと思ってます。
例えば写真があるフォルダにR写真台紙をコピーしておいて、起動させたら勝手にフォルダの写真を全部取り込んで印刷して保存せずに終了するとか。
起動時のダイアログで選択できれば現状の機能も失わずにいけるかなと考えています。
ちょっと時間を下さい。

R写真台紙便利に使わせていただいております。
Vistaに2003を入れなおして使っています。
コメント行の拡張についてお願いできるでしょうか？
リストでの入力で現在コメント行が５列入力できますが、もう２列程度拡張できないものでしょうか、勝手なお願いですがよろしくお願いします。

takanashiさんこんばんは。
出来るはずです。
当初XGAの横幅に納まらないからという理由で今の巾を決めただけです。記憶に依れば
ちょっとやってみますね。
少し時間を下さい。

>takanashiさん
やってみました
不具合がありそうなテスト版です
何か問題がありましたら教えて下さい。
[Link]

ありがとうございます。
残念ながらコメントの５から７の出力先が
同じ行しか選択できません、
どの列で変えても３列とも同じ出力先になってしまいます。

追伸です、
リスト入力でNo.列を転記なしにして、出力先の選択先をコメント７で９にすると三列出力されますが、出力を指定した行から一行ずれて出力になります。
６行目が７行に
７行目が８行に
８行目が９行に
６行目の選択が出来ません。

あ

とりあえずその場所と思われる箇所を修正しました
[Link]
お試し下さい。

まだありそうな気もするので不具合報告お待ちしてます

早速ありがとうございます。
試してみるとリストで写真リスト読込みの時
シートの保護が掛かっていてパスワードの入力になり、試用できません。
時間がありましたら修正お願いします。

とりあえずそこ直しました。
[Link]

ありがとうございます。
増設されたコメント列の出力行の指定等は指定でき、手入力したものはコメントも出力されますが、
コメントリストからの選択入力について
は受け付けてくれません。
よろしくお願いします。

そこは動作確認したのですがなぜか動きませんね。
直しました
[Link]
今度こそ。

すごい時間帯に作業をしていただき感謝します。何度となく仕様変更にかかわる書き込みをしまして申し訳有りません。
試用させて頂きました。
No.部分のダブルクリーク時
行挿入と削除が行われますが、
選択範囲がコメント5までの列になっていて
増設された列について追従しません、
この部分が修正されれば、今までの拡張版として使用できそうです。
お世話になりますが、よろしくお願いします。

あー。そういえばそんな機能もありました
直しました。
[Link]
自分が「取り込んで印刷」以外の機能を使ってないので忘れがちです。
まだ何かあると思いますので見つけ次第突っ込んで下さい。

ありがとうございました。

コメント７列の拡張版試用してみました。
以前のものと同等に機能していると思います。
(使っている機能は一部かもしれませんが)
写真を取込んで、写真を確認しながら並び換えをして、コメントをつけて印刷
とても便利に使わせていただいてます。
また何か思いついたら書き込みさせて頂きます。

ひとまず動きましたか。
お手数取らせてしまいました。
思いつきと勢いで作成しているツール群なので後で見直すとわけがわからないことがしばしばです。
またお気軽に書き込んでください。
ありがとうございました。

　お世話になります。

　インポート後、写真それぞれ１枚づつ（３枚）上下が重なる不具合が発生します。トリミング修正で対応できますが、修正方法があれば教えてください。

Excel　2003です。

sakuraiさんこんばんは。
その不具合は毎回起きますか
そろそろ私の周りも2003が増えてきまして
もう少し詳しくお知らせ願えないでしょうか。

　Hinoさん　こんちゃ(*- -)(*_ _)ペコリ
　わが社でもR写真台紙が普及してきました。
　そこで問題がありました・・(;￣ー￣川 アセアセ

　OS　XP、Excel2007で、R写真台紙をつかうと・・、写真がページごとに少しずつ　横にずれていきます。

　[Link]

　こんな状況です。

　ちなみに　僕のXP　Excel2003ではなんの不具合もなく　しっかりお仕事してくれています。
　o(*^▽^*)o~♪

Ｒ写真台帳をﾀﾞｳﾝﾛｰﾄﾞしたいのですが？
どのサイトでできますか。
教えて下さい。

植木さんこんにちは。
このページの最上段にある「Download」からも落とせますが、現在の置き場はこちらです。
[Link]
ご確認下さい。