![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
>【A4縦、余白を0に設定】するようなvbaコードがあります。
マージンの上と左は、プリンター側の物理的余白がありますから、それを別にすれば、余白は0の設定は、可能かと思います。
それともかく、マクロでマクロを載せるのか書くか、という質問になります。
この前の人のように、ヒントとして出したのですが、途中でキレて、締め切りにしてしまいました。そういう気の短い人には、そもそも無理なマクロです。
単刀直入に言うとマクロウィルスの技法なのです。簡単なコードには違いないのですが。
このプロテクトはどこを外すかぐらいは、ご自身で調べてください。
#1さんの内容をマクロ化すると、こうなります。一応、標準モジュールの1を対象としました。
'エクスポート
Sub VBP_Export()
ThisWorkbook.VBProject.VBComponents.Item("Module1").Export _
Filename:=ThisWorkbook.Path & "\Module1t.bas"
End Sub
'インポート
Sub VBP_Import()
ActiveWorkbook.VBProject.VBComponents.Import _
Filename:=ThisWorkbook.Path & "\Module1t.bas"
End Sub
>【新しいファイルに紐付け出来ない】
紐付けとは言わないけれどもね。ふつうは、上記のようなイレギュラーなことをしないで、インスタンスをつけますね。実際は、クラスの中のコードは、ブック名とか選別した方がよいとは思います。
'-------------------
'標準モジュール
Public myClass As New Class1
Sub Auto_Open()
'ブックオープン時に設定される。
Set myClass.myApp = Application
End Sub
'Class1 モジュール
Public WithEvents myApp As Application
Private Sub myApp_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)
Cancel = True
'以下はマージンを0にするコード・左と上しか出来ないはずです。
'With - End With は、仮のマクロ
myApp.Left = 0
myApp.Top = 0
With Wb.ActiveSheet
.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End With
Wb.ActiveSheet.Range("A1").Select
End Sub
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_14.png?e8efa67b6d)
No.2
- 回答日時:
【新しいファイルに紐付け出来ない】・・・この意味がよくわかりませんが、
そのvbaコードを新たな別のファイルにコピペして、そのまま使えばよいかと。
もし、それでだめなら、どのようにだめなのかを具体的に説明するとか、vbaのコードを提示するとか、
しないと期待した回答は得られないかと。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?e8efa67b6d)
No.1
- 回答日時:
VBAのウィンドウで標準モジュールの下にある名前を右クリックし「ファイルのエクスポート」を実行して、どこかのフォルダへ落とす。
貼り付けたい方のVBAのウィンドウで「標準モジュール」を右クリックし「ファイルのインポート」を実行して、持ってくる。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイルのアクセス回数について
-
エクセルのプロパティーでセキ...
-
ExcelブックをGoogleスプレッド...
-
サブフォルダから部分一致のエ...
-
エクセル UserForm 呼び出しで...
-
Excelのマクロファイルを開くと...
-
エクセルファイル名に更新日時...
-
実行時エラー52
-
マクロ実行後、表示がおかしくなる
-
エクセルのマクロで行と列の削...
-
VBAでマクロを使って、マクロ無...
-
Excel csv保存 列数が異なる場...
-
エクセルで複数のコメントのサ...
-
カンマ区切りのCSVファイルから...
-
エクセルvbaでdocuworksprinter...
-
Excel 相対パス
-
【VBA】テキストファイルを指定...
-
Windows10でコマンドプロンプト...
-
[エクセル]コピーするとオブジ...
-
VBA フォルダの複数選択ができない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイルのアクセス回数について
-
エクセルのプロパティーでセキ...
-
ExcelブックをGoogleスプレッド...
-
Wordで差込印刷した後に別々の...
-
Excel csv保存 列数が異なる場...
-
サブフォルダから部分一致のエ...
-
エクセル UserForm 呼び出しで...
-
エクセルファイル名に更新日時...
-
PowerPoint 2002でファイル名を...
-
マクロ実行後、表示がおかしくなる
-
実行時エラー52
-
EXCEL 検索時の設定
-
複数のexcelのファイルを一括で...
-
Excelのフッダ-に「ファイルの...
-
エクセルのマクロで行と列の削...
-
エクセルでcsvファイルを開いて...
-
エクセルで、フィルタかけたま...
-
vbaでボタンをクリックして上書...
-
Word2010で閉じるボタン押下後...
-
【Excel VBA】ファイルを保存し...
おすすめ情報