Přejít k hlavnímu obsahu

Jak vložit obrázek nebo obrázek ze skeneru nebo fotoaparátu do aplikace Word?

Při vkládání obrázků ze skeneru nebo fotoaparátu v aplikaci Word 2007 a novější verzi se můžete dostat do potíží, protože Microsoft odstranil možnost vložit obrázek ze skeneru nebo fotoaparátu, který byl právě k dispozici v aplikaci Word 2003. Tento výukový program vám ukáže několik způsobů vkládání obrázků ze skeneru nebo fotoaparátu v aplikaci Word 2007 a novější verzi.

Vložte obrázek ze skeneru nebo fotoaparátu do aplikace Word pomocí zkratek

Vložte obrázek ze skeneru nebo fotoaparátu do aplikace Word vytvořením makra

Vložte obrázek ze skeneru nebo fotoaparátu do aplikace Word pomocí Kutools for Word


Vložte obrázek ze skeneru nebo fotoaparátu do aplikace Word pomocí zkratek

Pokud používáte Word 2007 nebo Word 2010, můžete rychle přistupovat k Vložte obrázek ze skeneru nebo fotoaparátu nástroj takto:

1. Nejprve stiskněte Další zadejte v aplikaci Word 2007 nebo Word 2010 a poté pokračujte v zadávání posloupnosti kláves nabídky ips
na klávesnici a zobrazí se Vložte obrázek ze skeneru nebo fotoaparátu dialog.

Po napsání textu Další první a i klíč, uvidíte a Super tip následujícím způsobem:

Po napsání textu p a s klíč, vyskočí Vložte obrázek ze skeneru nebo fotoaparátu dialog.

Poté si můžete vybrat obrázek ze zařízení pomocí Vložte obrázek ze skeneru nebo fotoaparátu dialog.


Vložte obrázek ze skeneru nebo fotoaparátu do aplikace Word vytvořením makra

1. Nejprve byste měli vytvořit a Makro pro váš dokument Word. prosím klikněte Pohled > makra > Zobrazit makra. Viz snímek obrazovky:

doc vložte obrázek ze skeneru 1

2. Po kliknutí Zobrazit makra, tam bude a makra vyskočí dialogové okno. Pod Název makra, vepište "Skenovat“; vybrat Normální. dotm (globální šablona) z Makra v rozbalovací seznam. Pak klikněte na tlačítko Vytvořit. Viz snímek obrazovky:

doc vložte obrázek ze skeneru 2

3. A teď, a Okno Microsoft Visual Basic pro aplikace zobrazí se, zkopírujte a vložte následující kód do dialogového okna mezi Dílčí skenování a Konec pod line.

Kód v roce 2013 a novější verzi:

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

doc vložte obrázek ze skeneru 3

Kodex v letech 2007 a 2010:

On Error Resume Next
WordBasic.InsertImagerScan

doc vložte obrázek ze skeneru 4

4. Nyní byste měli kliknout Tools > Reference přejděte na Reference - normální V dialogovém okně vyberte a zkontrolujte Knihovna pro získávání obrázků Microsoft Windows možnost, viz screenshot:

doc vložte obrázek ze skeneru 5

5. Pak klikněte na tlačítko OK zavřete dialogové okno a nyní stiskněte F5 klíč ke spuštění tohoto kódu.

Poznámka: Zkontrolujte, zda je skener zapnutý a připojený k počítači


Vložte obrázek ze skeneru nebo fotoaparátu do aplikace Word pomocí Kutools for Word

S Kutools for WordJe Ze skeneru nebo fotoaparátu můžete se těchto nepříjemných operací zbavit a snadno vložit obrázek ze skeneru nebo fotoaparátu do aplikace Word.

Kutools for Word : s více než 100 užitečnými doplňky Wordu, můžete to vyzkoušet bez omezení za 60 dní. 

1. Umístěte kurzor na místo, kam chcete vložit obrázek.

2. Poté použijte tento nástroj kliknutím Kutools > Moře > Ze skeneru nebo fotoaparátu. Viz snímek obrazovky:

3. Po kliknutí Ze skeneru nebo fotoaparátu, zobrazí se Vložte obrázek ze skeneru nebo fotoaparátu dialog.

A: Pod Přístroj, vyberte související zařízení, ze kterého chcete importovat obrázek.

B: Vyberte libovolné Rozlišení chceš.

C: Klikněte Vložit začít vkládat.

Poznámka: Tento nástroj nelze použít pro Word 2013 a novější verzi.

Klikněte pro stažení Kutools for Word a zkušební verze zdarma nyní!

Podrobnější informace o Kutools for WordJe Ze skeneru nebo fotoaparátu nástroj, navštivte prosím: Ze skeneru nebo fotoaparátu.


Nejlepší nástroje pro produktivitu v kanceláři

Kutools for Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

Ponořte se do zvýrazněných funkcí níže nebo klikněte sem a prozkoumejte plnou sílu Kutools for Word.

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/XLSX)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou ...

Úprava obsahu: Dávkové hledání a nahrazení přes více souborů   /  Změnit velikost všech obrázků   /  Transponujte řádky a sloupce tabulky  /  Převést tabulku na text ...

🧹 Čištění bez námahySmést pryč Extra prostory  /  Sekce přestávky  /   Všechny záhlaví  /  Textová pole  /  Odkazy  /  Další nástroje pro odstraňování najdete v naší skupině pro odstranění

Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  /  Objevte více v naší skupině Insert

???? Přesné výběry: Označte konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  /  Procházejte se snadno pomocí naší Select Group

Vylepšení hvězd: Navigujte rychle na libovolné místo  /  automatické vkládání opakujícího se textu  /  plynule přepínat mezi okny dokumentů  /  11 Konverzní nástroje ...

Transformujte své úkoly ve Wordu pomocí Kutools. 👉 Stáhněte si nyní 30denní zkušební verzi 🚀.

Více       Stažení zdarma      Nákup
 
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