Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


44844 / 76732 ←次へ | 前へ→

【36898】Re:textboxの内容の印刷について
お礼  まだまだ初心者 E-MAIL  - 06/4/17(月) 18:06 -

引用なし
パスワード
   ▼neptune さん:
お返事ありがとうございます。
何とか四苦八苦しながら、一応できるようになりました。
ただ写真を文末に付けようとすると、文章がクリアされてしまうので、
文頭に写真をつけるという少し変な印刷ですが。
以下にコードを書いておきます。

Option Explicit
  Dim objWord As New Word.Application   'Wordアプリケーション
  Dim objWordDoc As Word.Document     'Wordの新規文書

Private Sub cmb3_Click()

  Dim 写真1 As Shape
  Dim 写真2 As Shape
  Dim 写真3 As Shape
  Dim 写真1の場所 As String
  Dim 写真2の場所 As String
  Dim 写真3の場所 As String
  Dim 指定行 As Long
  Dim 保存指定フォルダ名 As String
  Dim 内容 As String

  Dim myReturn As Integer
  
  保存指定フォルダ名 = "C:\mydocuments"
  指定行 = 2
  写真1の場所 = 保存指定フォルダ名 & "情報\" & 指定行 & "_1.jpg"
    写真2の場所 = 保存指定フォルダ名 & "情報\" & 指定行 & "_2.jpg"
      写真3の場所 = 保存指定フォルダ名 & "情報\" & 指定行 & "_3.jpg"

  Sheets("印刷各種情報").Range("A1") = tbx1.Value 'テキストの内容
  内容 = tbx1.Value


    On Error GoTo 写真がない場合
  
  With Sheets("印刷各種情報").Range("A3")
    Set 写真1 = Sheets("印刷各種情報").Shapes.AddPicture(写真1の場所, False, True, .Left, .Top, .Width, .Height)
      End With
      With Sheets("印刷各種情報").Range("B3")
    Set 写真2 = Sheets("印刷各種情報").Shapes.AddPicture(写真2の場所, False, True, .Left, .Top, .Width, .Height)
      End With
      With Sheets("印刷各種情報").Range("C3")
    Set 写真3 = Sheets("印刷各種情報").Shapes.AddPicture(写真3の場所, False, True, .Left, .Top, .Width, .Height)
End With

     Sheets("印刷各種情報").Range("A3:C3").Copy

With objWord
    .Visible = True           'Wordを表示
    .WindowState = wdWindowStateMaximize 'ウィンドウを最大表示
    .Documents.Open 保存指定フォルダ名 & "\情報印刷用.doc"
 
    Set objWordDoc = .ActiveDocument

   
    '文書にテキストを挿入
    With .Selection
           .PasteSpecial Placement:=wdInLine, DataType:=wdPasteMetafilePicture
             .InsertParagraphAfter
.InsertParagraphAfter
.InsertParagraphAfter
           .InsertAfter 内容
    
    End With
    
     End With
    
   '印刷(印刷中はマクロの実行は中断する)
  objWord.PrintOut Background:=False
  
  '文書を保存せずに閉じる
  objWordDoc.Close SaveChanges:=False
  
  objWord.Quit        'Wordを終了する
  
  Set objWord = Nothing    'オブジェクト変数をクリアする
  Set objWordDoc = Nothing


写真がない場合:
  Resume Next

End Sub

6 hits

【36793】textboxの内容の印刷について まだまだ初心者 06/4/13(木) 23:58 質問
【36797】Re:textboxの内容の印刷について ぱっせんじゃー 06/4/14(金) 8:45 発言
【36799】Re:textboxの内容の印刷について まだまだ初心者 06/4/14(金) 9:47 発言
【36800】Re:textboxの内容の印刷について ぱっせんじゃー 06/4/14(金) 10:01 発言
【36833】Re:textboxの内容の印刷について まだまだ初心者 06/4/14(金) 21:23 発言
【36836】Re:textboxの内容の印刷について neptune 06/4/14(金) 21:42 発言
【36843】Re:textboxの内容の印刷について まだまだ初心者 06/4/15(土) 9:10 発言
【36897】Re:textboxの内容の印刷について neptune 06/4/17(月) 17:46 回答
【36898】Re:textboxの内容の印刷について まだまだ初心者 06/4/17(月) 18:06 お礼
【36905】Re:textboxの内容の印刷について neptune 06/4/17(月) 21:23 発言

44844 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free