OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

画像の差込

  • すぐに回答を!
  • 質問No.238168
  • 閲覧数631
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 28% (48/166)

エクセルのデータを、WORDやPublisherに差し込んで、いわゆる『差込印刷』というのはよくやるのですが、このデータと同じように、ラベルなどに異なる画像を差し込むにはどのようにすればよいのでしょうか?たとえば、メンバーズカードのように、名刺大のラベルに、文字のデータとともに、写真などを一枚毎に差し込んでいく、ということをやりたいわけです。教えてください。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

Excelを使って、オートシェイブの四角形に任意の画像を登録する例です。

使用するシートは『Sheet1』
Sheet1にオートシェイブの四角形を1つ追加します。大きさは適当に決めて下さい。
この四角形の名前は初期値『四角形 1』のままとします。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、表示→プロジェクトエクスプローラでプロジェクトエクスプローラを表示し、Sheet1をダブルクリックしSheet1のコードウインドウに下のマクロを貼り付けます。
シートに戻り、四角形を右クリックし、マクロの登録で、『imageSet』を選択します。
これで四角形をクリックすると画像ファイルを選択するダイアログが開いて選択した画像ファイルが四角形に表示されます。

一例ですので、アレンジもできるでしょう。ご参考に。(Excel97です)

Sub imageSet()
  Dim Shp As Shape '画像を貼り付ける四角形(オートシェイブ)
  Dim imgFileName As Variant '画像ファイル名
  Dim myFilter As String '画像ファイルフィルタ

  Set Shp = Worksheets("Sheet1").Shapes("四角形 1")

  myFilter = "image(*.bmp;*.jpg),*.bmp;*.jpg"

  imgFileName = Application.GetOpenFilename(fileFilter:=myFilter)
  '指定したファイルを貼り付ける
  If imgFileName <> False Then
    Shp.Fill.UserPicture picturefile:=imgFileName
  End If
End Sub
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ