Excel マクロでスタンプ機能

質問

Excelで作った文書に「秘」の表示をしたいと思っています。
印刷の際にプリンタの詳細設定でスタンプ機能があるので、利用しようと思います。　このファイルは「マクロでワークシートを挿入して印刷」という作業を繰り返すので印刷の際はその都度プリンタの設定をしています。
当該シートを印刷する時に自動でこのスタンプ機能ができるようにしたいのですが、マクロか何かで印刷のときにこのスタンプが印字されるようにできるのでしょうか？

今日、1日いろいろと調べたのですが、印刷時にヘッダーとして「秘」を自動で差し込むようには出来たのですが、これでは「秘」の表示はできるのですが、出来れば「秘」を四角で囲みたいです。

ＶＢＡの知識は少しあります。　よろしくお願いします。

回答No.1

zap35 · ベストアンサー

＞スタンプが印字されるようにできるのでしょうか？
できないと思います。プリンタドライバに依存する機能だからです

代替案として印刷時だけオートシェイプをシート上に配置して、印刷後に削除してしまう方法ではいかがでしょうか。例えばこんな感じです。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim shp As Shape
If ActiveSheet.Name = "Sheet1" Then
　Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
　　　　347.25, 17.25, 114.75, 42#)
　shp.Select
　Selection.Characters.Text = "秘"
　ActiveSheet.PrintOut
　shp.Delete
End If
End Sub

お礼

そうですか、やっぱりできないんですね。
でも早速、代替案のほうを試してみます。
ありがとうございました。