Excelマクロでスタンプ機能
- Excelマクロを使用して、文書に「秘」の表示をスタンプする方法をご紹介します。
- プリンタの詳細設定で利用できるスタンプ機能を活用し、印刷時に自動でスタンプを行う方法を解説します。
- VBAの知識を活用して、「秘」を四角で囲むようなスタンプ機能を実装する方法をご紹介します。
- ベストアンサー
Excel マクロでスタンプ機能
Excelで作った文書に「秘」の表示をしたいと思っています。 印刷の際にプリンタの詳細設定でスタンプ機能があるので、利用しようと思います。 このファイルは「マクロでワークシートを挿入して印刷」という作業を繰り返すので印刷の際はその都度プリンタの設定をしています。 当該シートを印刷する時に自動でこのスタンプ機能ができるようにしたいのですが、マクロか何かで印刷のときにこのスタンプが印字されるようにできるのでしょうか？ 今日、1日いろいろと調べたのですが、印刷時にヘッダーとして「秘」を自動で差し込むようには出来たのですが、これでは「秘」の表示はできるのですが、出来れば「秘」を四角で囲みたいです。 ＶＢＡの知識は少しあります。 よろしくお願いします。
- midoriramram
- お礼率78% (125/159)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
＞スタンプが印字されるようにできるのでしょうか？ できないと思います。プリンタドライバに依存する機能だからです 代替案として印刷時だけオートシェイプをシート上に配置して、印刷後に削除してしまう方法ではいかがでしょうか。例えばこんな感じです。 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
関連するQ&A
- エクセルのスタンプ機能？
既に回答が締め切られている別の方の過去の質問で， 『エクセルの機能として書類の背景に、「社外禁」とか、「控」とかの文字を薄い灰色で背景のように付けたい』 という質問に対して，「（Excel2000であれば）印刷のプロパティーでスタンプを選択すると可能」という解決策が回答されています。 私も確かめてみようとしたところ，（Excel2002なのですが）どうもそれらしいものが出ません。 （「印刷」でプリンタのプロパティが出てきます） 「社外禁」とスタンプするのは，エクセルの機能というよりはプリンタの機能であって，使用しているプリンタによっては同種の機能がない，ということで考えていいでしょうか。 それともExcel2000だとこのような機能があるのでしょうか？ ※過去の質問の中では問題が解決しているようですし，当該のＱ＆Ａでの質問者さんと回答者さんでのやりとりを否定する意図ではありません。
- ベストアンサー
- オフィス系ソフト
- Excelのマクロについて
マクロ超初心者のものです。 Sub 印刷() Worksheets("縦背表紙").PrintOUT End Sub 上記のような、マクロを使い印刷をしているのですが、なぜか違うプリンタをを使用しているＰＣに、このマクロの入っているＥｘｃｅｌ実行すると書式が変更され当初設定した１枚の用紙に印刷されません。 ここで質問なのですが、各種プリンタを使用したＰＣどれでも対応できるようなページ設定を固定できるようなマクロを上記のマクロに挿入したのですが可能なものでしょうか？ ちなみに、当初設定したページ設定は、ページの拡大縮小印刷が７０％、余白が上０．５、下０．５、左１．０、右２．０、ヘッダー０．８、フッター０．８で設定しました。 乱文で申し訳ありませんが、超初心者にアドバイス等よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- エクセルマクロ印刷時にプリンタを指定できますか？
エクセル２００２を使用しています。VBAはまったくわかりません。 マクロの自動登録で印刷を記録すると、通常使うプリンタから 出力されるようですが、LANでプリンタ複数使用可能な環境です ので、いちいち通常使うプリンタを変更するのではなく、マクロ 実行時にプリンタを選択したく思います。 因みに、以下のマクロはSheet1に値を入力し、Sheet1の値をコピー したSheet2を印刷するというマクロです。このマクロのどの部分に コードを付け加えればプリンタをこのマクロ実行時に選択可能でしょうか？ もしくはマクロではプリンタを選択できないのでしょうか？ どうぞよろしくお願いいたします。 ****************************************************************** Sub 印刷() Sheets("Sheet2").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Sheet1").Select End Sub *******************************************************************
- ベストアンサー
- オフィス系ソフト
- EXCEL(マクロ機能あり)のコピー
お世話になります。 現在、マクロ機能のあるEXCELファイルを別のPCへコピーし実行すると 思うような結果が返ってこない。 Sheetが2つあり、 ・Sheet1はDBより取得 ・Sheet2はSheet1を参照し集計 というように構成しています。 自分のPCでは全て問題なく実行できるが、 別のPCではSheet1のデータ取得は実行でき、Sheet2の参照集計ができない。 という点で悩んでいます。 お力添えをお願いいたします。 考えられる問題点は、 1.ファイルの作成時にマクロ機能を別のEXCELファイルよりコピー(ボタンの機能など)し、マクロの登録を行ったので参照がうまくいっていない。 2.マクロのコピーの仕方が正しくない 3.Excelファイルに何か設定をしなければならない(参照設定など) と考え調べていたのですが、解決に至りませんでした。 どなたかご教授をお願いいたします。
- 締切済み
- オフィス系ソフト
- マクロの自動記録でページ設定を行うには
お世話になっております。 以下の動作がうまく動かず、悩んでいます。 (1)シート名がA～Cの3枚のシートを同時にアクティブにする。 (2)ページ設定で印刷倍率を60%、印刷の用紙のサイズをB4に設定する。 (3)印刷時の用紙の余白をヘッダーやフッターも含めてすべて１にする。 (4)ヘッダー（左側）にファイル名を表示、フッター(右側）に”ページ数＆/&総ページ数”と印刷する。 エクセルのマクロの自動記録で、上記のように動くよう、設定を試みたのですが、どうにもうまく動いてくれません。 流石に印刷設定のような細部の調節は、難しいのでしょうか？ 何か良策がありましたら、ご教示願います。
- ベストアンサー
- オフィス系ソフト
- Ｅｘｃｅｌでヘッダ、フッタ設定を共有
Ｅｘｃｅｌで１ファイルにシートが複数枚ある時、1つのシートに設定したヘッダ、フッタ情報を すべてのシートに反映させることはできるのでしょうか。 ex.Ａ～Ｅの５つのシートがある時、Ａのシートのヘッダにシート名(A)、フッタにファイル名を設定。 残りのＢ～Ｅは印刷時に自動的にＡシートと同様のヘッダ、フッタが印字される。
- ベストアンサー
- オフィス系ソフト
- MS-EXCEL VBA (マクロ) の書き方
エクセルの複数シートのデータを両面印刷可能なプリンターで、両面印刷するためのマクロを書きたいのですが、どうしてもうまく行きません。 シート名は、1,2,3,4 と4シートで、それぞれのシートにA4用紙1枚分のデータがあり、それが印刷範囲に指定されています。それら4枚分の印刷範囲を、1枚のA4用紙に、2ページを1ページに圧縮＋両面印刷 で印刷したいのですがどうしてもうまく行きません。（プリンターのプロパティ設定はマクロ実行前にSheet1で行っているのですが。） どなたかお分かりになる方、お手数ですがご教授願えませんでしょうか。 補足：ちなみに、4ページ分を1ページに印刷して、片面での印刷は以下のマクロで出来ています。 Sheets(Array("1", "2","3","4")).Select Sheets("1").Activate 'この時Sheet1で、プリンターのプロパティで、4ページを1ページに印刷を選択してある。 ActiveWindow.SelectedSheets.PrintOut Copies:=1 よろしくお願いします。 ちなみにプリンターは事務所のネットプリンターで、TOSHIBA e-STUDIO4520CSeriesPCL6 です。
- 締切済み
- その他MS Office製品
- デジカメのタイムスタンプ機能について
現在オリンパスのSP-700というカメラを使っています。 こちらにはタイムスタンプ機能がありません。もちろん データには日時が記録されており、写真をプリントする際には プリンタの設定によりスタンプすることができますが、 画像自体にタイムスタンプをすることができないようです。 知人にパソコンで画像データを送信したいのですが、その画像に 日付を入れ込んで送るよう言われています。 やはりカメラに機能がない以上、それは無理なのでしょうか？ 画像自体にタイムスタンプする方法があれば是非教えて下さい。 よろしくお願いいたします。
- 締切済み
- デジタルカメラ・フィルムカメラ
- Ｅｘｃｅｌでマクロを消すには
マクロが組み込まれているＥｘｃｅｌ２００３のファイルがあります。 マクロについて詳しくわからないのですが、複数の伝票シートを一括印刷するボタンがあったり、 チェックボックスに応じてオートシェープや文字が切り替わる機能があります。 この伝票のひな形だけを使いたく、枠や文字だけを新しいシートに値でコピーし、 別名で保存しました。 ボタンやオートシェープはありません。 また、ツール→マクロを選んでも特に何も見当たりませんでした。 しかし、このファイルを開くたびに このファイルにはマクロが… [マクロを有効にする][マクロを無効にする] というダイアログが表示されてしまいます。 マクロを消すといいますか、このダイアログが表示されないようにする方法がありましたら 教えてください。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- マクロで印刷プレビュー
マクロで印刷プレビューを設定したいのですが、 印刷用のシートには罫線を引いていないのですが、プレビューを した時に、罫線を表示させることってできますか？ あと、印刷用のシートには印刷範囲が設定されているのですが、 プレビューでは印刷範囲外の文字等を表示させたいのですが、 これもマクロでできますか？
- 締切済み
- オフィス系ソフト
お礼
そうですか、やっぱりできないんですね。 でも早速、代替案のほうを試してみます。 ありがとうございました。