メインコンテンツへスキップ

スキャナーまたはカメラからの画像または画像をWordに挿入する方法は?

マイクロソフトがWord2007で利用可能になったスキャナーまたはカメラから画像を挿入するオプションを削除したため、Word 2003以降のバージョンでスキャナーまたはカメラから画像を挿入する際に問題が発生する可能性があります。このチュートリアルでは、画像を挿入するいくつかの方法を示します。 Word2007以降のバージョンのスキャナーまたはカメラから。

ショートカットを使用して、スキャナーまたはカメラからの画像をWordに挿入します

マクロを作成して、スキャナーまたはカメラからの画像をWordに挿入します

Kutools for Wordを使用して、スキャナーまたはカメラからの画像をWordに挿入します


ショートカットを使用して、スキャナーまたはカメラからの画像をWordに挿入します

Word2007またはWord2010を使用している場合は、すぐにアクセスできます。 スキャナーまたはカメラから画像を挿入 次のようなユーティリティ:

1.最初に押してください 他の Word2007またはWord2010でキーを押してから、メニューキーシーケンスの入力を続けます ips
キーボードで、それは表示されます スキャナーまたはカメラから画像を挿入 ダイアログ。

入力後 他の 最初と i キー、あなたは見るでしょう スーパーヒント 次のように:

入力後 p & s キー、それはポップアップします スキャナーまたはカメラから画像を挿入 ダイアログ。

次に、デバイスから画像を選択できます。 スキャナーまたはカメラから画像を挿入 ダイアログ。


マクロを作成して、スキャナーまたはカメラからの画像をWordに挿入します

1。 まず、作成する必要があります マクロ あなたのWord文書のために。 クリックしてください 詳しく見る > マクロ > マクロの表示。 スクリーンショットを参照してください:

スキャナー1からのドキュメント挿入画像

2。 クリック後 マクロの表示マクロ ダイアログがポップアップします。 下 マクロ名、タイプ "スキャン」; 選択する 正常。 dotm(グローバル テンプレート) のマクロ ドロップダウンリスト。 次に、をクリックします 創造する。 スクリーンショットを参照してください:

スキャナー2からのドキュメント挿入画像

3。 そして今、 Microsoft Visual Basic forApplicationsウィンドウ が表示されたら、次のコードをコピーして、間にあるダイアログに貼り付けてください サブスキャン & サブを終了 ライン。

2013以降のバージョンのコード:

On Error Resume Next
     Dim objCommonDialog As WIA.CommonDialog
     Dim objImage As WIA.ImageFile
     Dim strDateiname
     Set objCommonDialog = New WIA.CommonDialog
     Set objImage = objCommonDialog.ShowAcquireImage
     strDateiname = Environ("temp") & "\Scan.jpg"
     If Not objImage Is Nothing Then
       Kill strDateiname
       objImage.SaveFile strDateiname
       Selection.InlineShapes.AddPicture strDateiname
       Set objImage = Nothing
     End If
     Set objCommonDialog = Nothing

スキャナー3からのドキュメント挿入画像

2007年と2010年のコード:

On Error Resume Next
WordBasic.InsertImagerScan

スキャナー4からのドキュメント挿入画像

4。 今、あなたはクリックする必要があります ツール > 参考文献 参照-通常 ダイアログボックスをクリックし、選択してチェックします MicrosoftWindowsイメージ取得ライブラリ オプション、スクリーンショットを参照してください:

スキャナー5からのドキュメント挿入画像

5。 次に、をクリックします OK ダイアログボックスを閉じるには、を押してください F5 このコードを実行するためのキー。

Note:スキャナーがオンになっていて、コンピューターに接続されていることを確認してください


Kutools for Wordを使用して、スキャナーまたはカメラからの画像をWordに挿入します

Kutools for Wordさん スキャナーまたはカメラから ユーティリティを使用すると、これらの煩わしい操作を取り除き、スキャナーやカメラからの画像を簡単に単語で挿入できます。

Kutools for Word : 100以上の便利なWordアドインがあり、60日以内に制限なしで無料で試すことができます. 

1。 画像を挿入したい場所にカーソルを置きます。

2。 次に、をクリックしてこのユーティリティを適用してください クツール > その他 > スキャナーまたはカメラから。 スクリーンショットを参照してください:

3。 クリック後 スキャナーまたはカメラから、表示されます スキャナーまたはカメラから画像を挿入 ダイアログ。

A:下 デバイス、画像のインポート元の関連デバイスを選択します。

B:いずれかを選択します 解像度 あなたは欲しい。

C:クリック インセット 挿入を開始します。

Note:このユーティリティは、Word2013以降のバージョンには適用できません。

クリックしてKutoolsfor Wordと無料トライアルを今すぐダウンロードしてください!

の詳細については Kutools for Wordさん スキャナーまたはカメラから ユーティリティ、訪問してください: スキャナーまたはカメラから.


最高のオフィス生産性向上ツール

Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!

🤖 Kutools AI アシスタント: AI であなたの文章を変革します - コンテンツを生成する  /  テキストを書き換える  /  文書を要約する  /  情報のお問い合わせ 文書に基づいて、すべて Word 内で

📘 ドキュメントマスタリー: 分割ページ  /  ドキュメントをマージする  /  選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...)  /  PDFへの一括変換  /  ページを画像としてエクスポート  /  複数のファイルを一度に印刷する...

コンテンツ編集: バッチ検索と置換 複数のファイルにわたる  /  すべての画像のサイズを変更する  /  テーブルの行と列を転置する  /  表をテキストに変換...

🧹 楽にお掃除:振り払って 余分なスペース  /  セクションブレーク  /  すべてのヘッダー  /  テキストボックス  /  ハイパーリンク  / その​​他の取り外しツールについては、当社の Web サイトをご覧ください。 グループを削除...

クリエイティブインサート:挿入 千の区切り文字  /  チェックボックス  /  ラジオボタン  /  QRコード  /  バーコード  /  斜線テーブル  /  方程式のキャプション  /  画像キャプション  /  テーブルキャプション  /  複数の写真  / 詳細については、 グループを挿入...

🔍 正確な選択: ピンポイント 特定のページ  /  テーブル  /  シェイプ  /  見出し段落  / ナビゲーションを強化する 他には? 機能の選択...

スターの強化: あらゆる場所に素早く移動  /  繰り返しのテキストを自動挿入  /  ドキュメントウィンドウをシームレスに切り替える  /  11 変換ツール...

👉 これらの機能を試してみませんか? Kutools for Wordは、 60日無料トライアル、制限なし! 🚀
 
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This should work in most versions 64 or 32 bit Add reference to Microsoft Windows Image Acquisition x2.0 Sub Scan() Dim objCommonDialog As WIA.CommonDialog Dim objImage As WIA.ImageFile Dim strScanName As String ' instantiate Scan WIA objects Set objCommonDialog = New WIA.CommonDialog Set objImage = objCommonDialog.ShowAcquireImage strScanName = Environ$("TEMP") & "\Scan.jpg" ' set temporary file If Not objImage Is Nothing Then If Dir(strScanName) "" Then Kill strScanName objImage.SaveFile strScanName 'save into temp file DoEvents 'Word Selection.InlineShapes.AddPicture strScanName ' insert in doc End If End Sub
This comment was minimized by the moderator on the site
I have followed ALL the instructions for loading a picture from my scanner and all that happens is a empty box outline appears on my Word 10 page?? Your help is sort. David 76 yrs young
This comment was minimized by the moderator on the site
Wow! supereasy. Thank you!
This comment was minimized by the moderator on the site
Thanks a lot for this very helpful article! The keyboard shortcut and the macro both work like a charm!
This comment was minimized by the moderator on the site
such an amazing and helpful.
This comment was minimized by the moderator on the site
So I created a Macro using the code you supplied, thank you, i was wondering if there was a way to go further and include code for the selection that you make once that Insert Image window pops up. Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations