Excel2003を使用しています。
あるシートに数10ページ分の同じ書式があり、それぞれ同じ位置に『図 68』が貼り付けてあります。
これを2部印刷するのですが、1部は『図 68』を印刷せず、もう1部は『図 68』も印刷します。
この『図 68』の印刷の有無の設定をマクロで処理したく、マクロの記録を元に下記のようにコードを書いて試してみたところ、1ページ目の『図 68』にしか印刷の設定ができていませんでした。
『図 68』は、2ページ目以降は1ページ目の図をコピペしたもので、名前は全部同じように表示されていますが、実際のところ(?)それぞれ名前が違うのでしょうか?
図の設定に関するマクロは初めてのこともあり、よくわかりません。どのようにしたら、うまく設定できるでしょうか?
よろしくお願いします。
----------------------------------------
Sub Macro1()
ActiveSheet.Shapes("図 68").Select
With Selection
.Placement = xlMove
.PrintObject = False
End With
End Sub
----------------------------------------
No.1
- 回答日時:
Sub TEST01()
With ActiveSheet.Pictures
.Placement = xlMove
.PrintObject = False
End With
End Sub
ではどうでしょうか?
回答ありがとうございます。
教えていただいたように、“With ActiveSheet.Pictures” と書き換えたところ、希望通りのことができました。
ありがとうございました!
No.2ベストアンサー
- 回答日時:
↓だとどうでしょう?
実行する度に「オブジェクトを印刷」のTrueとFalseを入れ替えるようにしています。
Sub test()
Dim myShape As Shape
For Each myShape In ActiveSheet.Shapes
If myShape.Name = "図 68" Then
myShape.ControlFormat.PrintObject = Not (myShape.ControlFormat.PrintObject)
End If
Next
End Sub
参考URL:http://www2.odn.ne.jp/excel/waza/macro.html
回答ありがとうございます。
早速、教えていただいたコードで試してみたところ、うまくいきました。
“実行する度に”というところが、元々手作業でしていたことそのままという感じで、使い勝手が良いです。
ボタンに登録して使わせていただきます。
ありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
【EXCEL VBA】オートシェイプをクリックした時にそのオートシェイプの名前を取得したい
Visual Basic(VBA)
-
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
-
4
バーコードコントロールが印刷時に反映されない
Excel(エクセル)
-
5
マウスで選択した図形のみVBAで移動したい。
Visual Basic(VBA)
-
6
マクロ実行後に別シートの残像が残り、オブジェクトが見えなくなる
Visual Basic(VBA)
-
7
VBAで特定のセルに画像があれば削除、なければ貼り付けを行いたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文章中の『図1』や『表1』の...
-
図として保存(JPG)した中...
-
図のリンク貼り付けが出来ない・・
-
この図を参照してください。 こ...
-
LaTeXでのcaptionの位置
-
エクセルのカメラ機能
-
【エクセル・カメラ機能】貼り...
-
エクセルの貼り付け「リンクさ...
-
tex 図のCaptionを中央揃えにし...
-
【Excel】挿入した図の上に文字...
-
リンクされた図のあるエクセル...
-
Wordのテキストボックスの...
-
pptやwordに貼り付けた図が重い...
-
ルービックキュウブはどうやれ...
-
Excelで[図のリンク貼り付け]を...
-
スキャンした文書をエクセルデ...
-
マクロ 最終行のセルに移動した...
-
Word フィールドを使用してリン...
-
ワードに拡張メタファイルの図...
-
TeXでPNGを取り込むとPDFの図に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
図のリンク貼り付けが出来ない・・
-
【エクセル・カメラ機能】貼り...
-
図として保存(JPG)した中...
-
文章中の『図1』や『表1』の...
-
【Excel】挿入した図の上に文字...
-
Excelで[図のリンク貼り付け]を...
-
[Tex] 図を通し番号で表示する
-
LaTeXでのcaptionの位置
-
マクロ 最終行のセルに移動した...
-
ワードにある図だけがPDF化でき...
-
エクセルのカメラ機能
-
リンクされた図のあるエクセル...
-
TeXでPNGを取り込むとPDFの図に...
-
図のリンク貼り付けを行うと・・・
-
tex 図のCaptionを中央揃えにし...
-
エクセルの貼り付け「リンクさ...
-
Word VBA 表内の図を一括中央揃...
-
エクセルの散布図の近似式の係...
-
Tex 図番号
-
wordで画像の下に出典を書いて ...
おすすめ情報