エクセル家系図と三日坊主日記

Ryotaさま

マクロが無効になっていると思いますので
最初に開いたときに、セキュリティ警告が出ますので【コンテンツの有効化】をクリックしてマクロを有効にしてください。

文字化けは言語設定が日本語であればメモ帳やワード等で開けば正常に表示すると思います。

ダウンロードしたエクセルを開くとVBAが消去され、家系図の書き出しが行えません。
付属のREADMEを開いてみましたが文字化けしているようです。
手順通り、プロパティ、セキュリティ、許可は行っています。
解決方法があれば宜しくお願いします。

Shinyuさま

Excel for Mac バージョンでの動作報告ありがとうございます。
MacではVBAは正常動作しないものと思っていましたが、Excel for Mac バージョン16.89.1 (24091630) (Microsoft 365)で一部修正で動作するのですね。ビックリです。
修正されたコメントの部分は、コメントのフレームサイズを自動調整する命令です。コメントの文字数が多いと表示できないことがあるため入れていますが、なくてもいいものです。
Macとwindowsでは画像関係の仕組みが違うため以前はVBAが正常動作しませんでした。Microsoft 365はオンライン上で動作しているのか？？？　よくわかりませんが動作するのですね。
動作報告ありがとうございます。

Excel for Mac バージョン16.89.1 (24091630) (Microsoft 365)で使わせていただいてます。感謝。

家系図作成で、「実行時エラー '1004': アプリケーション定義またはオブジェクト定義のエラーです。」が出ました。「デバッグ」をクリックすると、

If コメント <> "" Then Sheets("家系図").Cells(Y + 1, X).AddComment Text:=コメント: Sheets("家系図").Cells(Y + 1, X).Comment.Shape.TextFrame.AutoSize = True

の終わりの部分「Sheets("家系図").Cells(Y + 1, X).Comment.Shape.TextFrame.AutoSize = True」でエラーが起きているようです。
よく分からないので、とりあえずこの部分を削除して実行してみたところ、家系図が作成できるようになりました。

ringerhut2001さま

検証ありがとうございます。
今後のバージョンアップ時に３を有効にします。
また、４は作成状況を表示した場合に効果があるようなので有効にしたいと思います。
ありがとうございました。

HIRO 様
１を元に戻す→OK　この状態で
２を元に戻す→OK　この状態で
３を元に戻す→ＮＧ（写真が大小混在）　有効状態で
４を無効に→ＯＫ
すべて設定は　写真表示あり・下から配置・作成状況表示なし　で実施しました
なお　excel以外のウィンドは閉じ　念のため　PC Managerでブーストしてから行いました

以上 宜しくお願い申し上げます

MASAPAPAさま

返信遅くなりました。写真のコメント今後検討したいと思います。

ringerhut2001さま

windows11　office2007での動作確認ありがとうございます。

変更点は、
１．Shapes　→　DrawingObjects
２．DoEventsを有効
３．Sheets("家系図").Cells(Y, X).Selectを有効
４．Application.CutCopyMode = Falseを有効
ですね。
どの変更で動作するか、ご確認していただけないでしょうか？
よろしくお願いします。

hiro 様

windows11・i5第4世代・office2007の環境下

以下に変更したら作成中・表示ありなしとも
希望の結果が得られました
マクロは不案内ですが適当に変更してみただけ😩

'写真貼り付け
'Sheets("家系図").Select

If Sheets("設定").Range("Q12").Value = "表示あり" And Sheets("入力").Cells(行 + 3, 67).Value <> "" Then

Sheets("入力").DrawingObjects(Sheets("入力").Cells(行 + 3, 67).Value).CopyPicture
' Sheets("入力").Shapes(Sheets("入力").Cells(行 + 3, 67).Value).CopyPicture
DoEvents
Sheets("家系図").Cells(Y, X).Select

ActiveSheet.Paste Cells(Y, X)

Selection.ShapeRange.Left = Cells(Y, X).Left - 5
Selection.ShapeRange.Top = Cells(Y, X).Top - 5
Selection.ShapeRange.Width = 40
Selection.ShapeRange.Height = 40

Application.CutCopyMode = False
'Application.Wait [NOW()+"0:00:00.0005"]
'DoEvents

End If

ご無沙汰しております。バージョンが、6.1になっていたので、久しぶりに更新してみました。当初、セキュリティーが強化され、マクロが無効で、データーの更新も出来ず、当惑しましたが、添付のREADMEに対処方法が書かれていたので、そのとうり実行したところ、問題なく、更新できました。写真の画像も添付してみましたが、撮影時期（例えば、50歳前後の時の写真）が、写真についてのコメント欄があるといいなあと感じました。
どんどん、使い易く改善していただき、ありがとうございます。今後共、よろしくお願いします。

HIRO　様

windows10・i5第4世代・office2007の環境下

Application.CutCopyMode = Falseだと　12分→4分30秒へ良化しました

「作成状況なし」だと43秒で終了しますが
写真が90ドットと30ドットが混在します

ringerhut2001さま

windows11のエラーについてはっきりわかりませんが

エラーになったら編集で下の行の
( ’ )を削除し有効にしてみてください

595行目
'Application.CutCopyMode = False
　↓
Application.CutCopyMode = False

ダメだったら

585行目
' DoEvents
　↓
DoEvents

試してみてください

windows10・i5第4世代・office2007の環境では
表示画面を100％以外：21分
表示画面を100％：12分　でしたが

windows11・i5第8世代・office2007の環境
で試すと
写真アリにするとpasteメソッド失敗します（数人描画しエラー）
写真無しだと問題なく家系図作成してくれます

officeのバージョンが古すぎるのでしょうか？

早々のご回答ありがとうございます

再度試したところ
表示画面を100％以外：21分
表示画面を100％：12分
作成状況なし：1分　ただし写真が縮小されるのとされないのが
混在します

年金生活で時間はたっぷりあるので12分コースで
楽しみます

写真の登録について
サイズ制限はかけていませんが
個人カードでの表示は高さ96ポイント
家系図での表示は幅30ポイント高さ30ポイントに縮小して表示しています。
ですので、画像サイズはなるべく小さくした方が良いです。
また、家系図の作成時間については、PCの性能によることも考えられますが、30分はちょっと？？ビックリです。私の環境では同程度人数で約45秒（エクセルの表示画面を100％）、作成状況なしで約23秒ででできます。エクセルの表示画面を50％では約2分かかります。
写真サイズが大きくなる件については、VBA的には表示をOFFにしているだけで同じ処理をしているのでわかりません。すみません。

エクセルの表示画面を100％にして作成状況ありでお試しください。

HIRO 様

写真登録し　家系図作成状況ありだと時間はかかりますが
希望どおりの家系図になります（≒30分間）登録人数は200名強です

家系図作成状況なしも選択できるのを知り試したところ
時間は早くなりますが写真サイズが大きくなってしまいました

もともとの写真の縦横比や画像サイズの制約がありましたら
ご教示いただけたら幸甚です

PNKT084さま

お役に立てたてようで良かったです。
また、わざわざコメントいただきありがとうございます。

家系図作成に利用させていただきました。
二百人以上の繋がりは自力ではまとめられなかったと思います。
ありがとうございました。

ありがとうございました、いろいろ工夫してみましたがうまくいきませんでした。私の登録内容は
夫は　本人ー実父ー子6
先妻は　本人ー実父ー子6ー配偶者
後妻は　本人ー実父ー子6ー配偶者2　となっています。
直列表示でもしょうがないかなと思っています。

先妻と後妻の配置について

夫の関係が【本人】以外の場合は、外側に向かって直列に表示されます。

夫の関係が【本人】の場合は、先妻、後妻を【配偶者】、【配偶者２】で登録すると両側に表示されます。

裏技ですが、
実際の関係ではなく、表示したいように登録する
夫の関係が【父親】の場合は、
先妻を【父親】、夫を【母親】、後妻を【配偶者２】にすれば
表示は両側になります。
（夫の関係が【兄弟】、【子】の場合はダメです｝

いつもお世話になります。
早速ですが、以前にもお聞きしたことがありますが、先妻と後妻の配置の問題です。
いろいろ工夫してみましたが、夫ー配偶者ー配偶者2の直列表示しかできません。
表示例を見ると両側表示になっていますが、入力方法をお教え願いたいと思います。
よろしくお願いします。

秋山様

IBMPC互換機のMicrosoft Office Excel2010以上で動作します。(動作確認：Excel2016)

Excel for Macでは動作しないと思います。

Excel for Mac バージョン16.81(24011420)において動作しますか？

shizu さま

家系図に表示したいように登録してくだい。

養子として登録するか、妻の弟として登録するか
または両方登録してわかるように表示するか
下記を参照してください

http://hirotosi.ic-blog.jp/weblog/2020/08/post-4f41.html

妻の実弟を養子に迎えた場合どのように設定したら良いですか？