エクセルVBAでオートシェープの連番はいくつまで使えますか？

質問

シート上にオートシェープを配置すると、自動で名前と番号が振られます。（直線 125 とか　図 126とか）
この番号は連番になっており、配置したオートシェープを全て削除してファイルを保存しても、次回はオートシェープが何もないにもかかわらず、次の番号から採番されます。

この番号はいったい幾つまで続くのでしょうか？

下記VBAを試してますが、現在7万番台でもまだ有効に採番されます。
ある番号になったらそれ以上オートシェープが作れなくなるという話も聞きましたので質問します。

Sub test01()

Randomize

With ActiveSheet
.Cells.Interior.ColorIndex = 1

CL = Int((50 * Rnd) + 1)
L1 = Int((700 * Rnd) + 20)
H1 = Int((450 * Rnd) + 20)

Set SA = .Shapes.AddShape(msoShape5pointStar, L1, H1, 25, 25)
SA.Name = "Merlion_" & SA.Name
SA.Fill.ForeColor.SchemeColor = CL

For n = 1 To 100

CL = Int((50 * Rnd) + 1)
L2 = Int((600 * Rnd) + 20)
H2 = Int((300 * Rnd) + 20)

SA.Top = H2 - SA.Width / 2
SA.Left = L2 - SA.Height / 2
SA.Fill.ForeColor.SchemeColor = CL

Set SL = .Shapes.AddLine(L1, H1, L2, H2)
SL.Name = "Merlion_" & SL.Name
Application.StatusBar = SL.Name

SL.line.Weight = 0.75
SL.line.ForeColor.SchemeColor = CL

L1 = L2
H1 = H2

Next

SA.ZOrder msoBringToFront
SA.line.Visible = True
SA.line.ForeColor.SchemeColor = CL

For i = 1 To 800 Step 60
SA.Rotation = i / 10
SA.line.Weight = i
DoEvents
Next

For Each s In .Shapes
If s.Name Like "Merlion_*" Then s.Delete
Next

.Cells.Interior.ColorIndex = xlNone

End With

End Sub

回答No.5

KenKen_SP · ベストアンサー

merlionXX さん、Wendy02 さん、こんにちは。

> 数万とかのシェープを使うケースってどんな場合なんでしょう?（^^）

私のくだらないご質問、、ご回答ありがとうございました。興味
深く読ませていただきました。

Excel は Biff フォーマットで記録されています。レコード単位
で比較し、解析してみました。スキル不足で、決定的な結論を導
くには至ってませんが、手がかりぐらいにはなるかもしれません。

・解析手順

1.　新規ブックを何もしないで保存
2.　1.に Shape を書き込み別名保存
3.　2.の Shape を削除し、新たに Shape を書き込み別名保存
　　---> Shape をカウントアップさせる
4.　3.を繰り返し、カウントアップされた何パターンかを用意
5.　1～4 のバイナリダンプを取る
6.　Diff ツールで比較

・比較結果からの考察（...自信は全然ありませんが）

Ａ）シェープを書き込むと以下４つのレコードが追加される
　（）はレコード番号。

　[MSODRAWINGGROUP] (&HEB)
　[MSODRAWING] (&HEC)
　[OBJ] (&H5D)
　[MSODRAWINGSELECTION] (&HED)

Ｂ）[MSODRAWINGGROUP]に Shape のカウンタがあると思われる。
　　バイト数は４バイト、つまり、Long型の模様。つまり、
　　Wendy02 さんのご推測どおり、理論的には約21億4700万
　　までいけるかと、、

　　次は SHAPE を6415個かいたブックのダンプリストです。
　　0x00661C～0x00661D で上位と下位バイトをスワップさせる
　　と &h1910 = 6416 です。1のズレがありますが、カウント
　　の方法の違いによるものと思います。

　　これが、Shape の内部カウンタだと思います。

00651: [MSODRAWINGGROUP](235)
00000 EB 00 8A 00 0F 00 00 F0 82 00 00 00 00 00 06 F0
00010 48 00 00 00 10 1D 00 00 08 00 00 00 10 19 00 00
00020 01 00 00 00 01 00 00 00 00 04 00 00 01 00 00 00
以下略...

Ｃ）[MSODRAWING] と [OBJ] レコードが Shape の数だけある
　　それぞれに、Shape の名前が記録されている。

Ｄ）ブックの全てのオブジェクトを削除して、保存すると、
　　Ａ)の４つのレコードが削除される。

　　つまり、ひとつ残らずオブジェクトをシートから削除し、
　　保存すると Ａ）のレコードが全て初期化されます。
　　ポイントは保存時にこれが実行されるようです。

　　ですから、保存前にひとつでもオブジェクトを追加すると
　　Ａ）のレコードのうち、[MSODRAWINGGROUP]レコードの
　　カウント値が保持されたまま、保存されてしまいます。

　　Shape の欠番発生の原因だと思います。

長文、すみません。

お礼

KenKen_SP さん、ここまでお調べいただき、感謝感激です。
わたしには難しすぎて理屈はぜんぜんわかりませんが、

> ひとつ残らずオブジェクトをシートから削除し、
> 保存すると Ａ）のレコードが全て初期化されます。

これはわかりました。
テストして確認しました。開いたらShapeを一個も追加せず、そのシートだけじゃなくブック全体で全Shapeを削除し、保存したらカウントが１に戻りました。

そういう理解でいいんですね？

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