エクセルの表示について

質問

Vectorからダウンロードしたフリーのエクセルファイルについてお尋ねします。
http://www.vector.co.jp/soft/win95/business/se229938.html

いったんダウンロードしていただかないとわからないと思うのですが、この確定申告書B　Excel版 (平成17年分申告用) のなかのシート、「第一表」で用いられている薄茶色の箱型（郵便番号や、コクゼイ　タロウとか、あとは申告数字等入っている欄）が不思議なんです。
これは、単に一つ一つ画像（図形）をはめ込んだだけなのでしょうか？
それとも何か、このような表示ができるテクニックがあるのでしょうか？
ご存知の方がいらっしゃいましたら教えてくださいませ。

回答No.2

marbin · ベストアンサー

セルに合わせてシェイプを作成するマクロを使われたのかもしれません。

↓は選択セルを立体的に見せるシェイプを作成するマクロです。
興味があったらお試しください。

なお、このマクロは標準モジュールに記述して、複数セルを選択した
状態で実行してみてください。

Sub 複数立体()
Dim i As Long
Dim c As Range
Dim si1 As Single
Dim si2 As Single
Dim tp As Single
Dim lt As Single
Dim mei As String
For Each c In Selection
mei = "SP" & c.Address(0, 0)
tp = c.Top
lt = c.Left
si1 = c.Offset(, 1).Left - c.Left
si2 = c.Offset(1).Top - c.Top
ActiveSheet.Shapes.AddShape(msoShapeBevel, lt, tp, si1, si2).Name = mei
Next
End Sub

お礼

なあるほど、これならそんなに根気は要らないですね！
msoShapeBevelをmsoShapeRectangleにして、セルの高さや幅に多少余裕を持たせ、Fill.Visible = msoFalseにしたら、まさにこれができました！
ありがとうございました。

回答No.3

marbin

VBAを使用しない方法もあります。

Altキーを押しながらシェイプを作成すると、セルにぴったり合わせることが出来ます。

作成後でもAltキーを押しながらシェイプをドラッグさせるとセルの境界にシェイプ
を移動させることが出来ます。

お礼

なんと！
こんな便利な機能があったなんて・・・・。
知りませんでしたあ。
marbinさん、重ね重ねありがとうござります。

回答No.1

hirumin

薄茶色の箱型、これはオートシェイプでしょう。
単に四角を記入欄に合わせて配置したのでしょう。
それで、不用意に変更できない様に、シート保護を欠けてあります。

お礼

早速ありがとうございます。
そうですか、やっぱり唯の図形でしたか・・・・。
だとしたらこの作者、根気強く、かつ丁寧なお仕事されますねぇ。
こんなの作ろうと思ったんですがわたしにはとても真似できそうもありません。