①グループ化の解除
対象となる画像を右クリックしグループ化の解除をクリックします。
これを2回繰り返します。（2回グループ化されているため解除も2回）
②スピンボタンの最大値変更
スピンボタンを右クリックし、コントロールの書式設定をクリックします。
コントロールタブをクリックし最大値を変更します。
（256列の制限がある場合は大きくしすぎるとエラーがでます）
③再グループ化
右クリックし再グループ化をクリックします。
これも２回繰り返します。
④名前の修正
グループ化された図形に「制御グループ」という名前をつけていますが、
グループ化の解除で名前が変わってしまいます。
名前のボックス（通常セルの位置が表示されるところ）で「制御グループ」に修正します
これで完了です。
やるとすぐなんですが、文章にすると難しいですね
今後、この辺の修正や入力人数追加などやりたいと考えています。
兄弟１9人まで対応しました
excelkakeizu_ver1.87.zipをダウンロード
256列以上の対応について
お使いのバージョンが2007以上であれば
【ファイル】→【名前をつけて保存】→【Excelマクロ有効ブック 拡張子 xlsm】で保存することで256列以上に対応できる可能性があります。
（私は2003を使っているため検証できません）
あわせてVBの記述を一部変更しなければなりません。
①列オーバーの条件を変更
マクロの【自動レイアウト】で上図を参考に
141行目の 255を300とか500に変更
②ファイル形式の変更（今回は不要ですが、今後のために）
マクロの【旧バージョンデータコピー】で上図を参考に
11行目の ｘｌｓ を xlsm に変更
新田さんどうでしょう
またまた、頭の体操をしました。
変更点
①表示不具合の修正
②データー取込み機能追加
バージョンが変わるたびにデータをコピー、貼り付けするのが面倒になってきたのでデータ取込みボタンをつけました。（エクセル家系図ver1.6以上のみ、取込み可能、その他はダメ）
③家系図作成中の進行状況を表示
④表示項目の追加
住所など左上端に表示
前からでしたが、続柄の項目は、何でも入力できるようにしてました。
以上
excelkakeizu_ver1.85.zipをダウンロード
取込みファイルの簡単なチェックをつけ旧バージョンでも一部取り込みできるようにしました。
excelkakeizu_ver1.86.zipをダウンロード
いい色になってきました。
わきにあるのは家の裏で収穫した栗です。
半部分位、栗虫にやられましたが、今年は豊作かも
変更点は、配置の微修正（配偶者の有無と子供の有無をチェックをし配置を修正するようにした）、罫線の一部修正、1年を元年と表示、VBAの変数記述の見直しなど。
また、前バージョンでマクロが実行できないとのコメントがあり
エラーが起きていると思われる箇所を書き換えてみました。
ActiveSheet.Shapes("表題").Select
Selection.Cut
Cells(90, X - 10).Select
ActiveSheet.Paste
↓
With Worksheets("家系図")
.Shapes("表題").Left = Cells(90, X - 10).Left
.Shapes("表題").Top = Cells(90, X - 10).Top
End With
EXCEL2003のマクロの記録で作った部分でしたのでEXCELバージョンが違うとエラーが出るのかなと思い変えてみました。
おきさんこれでどうでしょう？
excelkakeizu_ver1.79.zipをダウンロード
最近のコメント