工作表录入宏后如何插入图片

❶ 如何快速将大量图片导入excel如何快速将大量图片导入word并排版

要快速将大量图片导入Excel，可以按照以下步骤进行操作：
1. 打开Excel并创建一个新的工作表。
2. 在工作表中选择您想要插入图片的单元格。
3. 在Excel菜单栏中选择“插入”选项卡，然后点击“图片”按钮。
4. 在弹出的对话框中，浏览并选择您想要导入的图片文件。
5. 选择图片文件后，点击“插入”按钮。
6. Excel会将选定的图片插入到您选择的单元格中。
如果您有大量的图片需要导入，可以使用以下技巧来加快导入速度：
- 选择多个单元格：在步骤2中，选择多个单元格，然后按照步骤3至步骤6的操作将多个图片一次性导入。
- 使用复制和粘贴：如果您的图片已经保存在文件夹中，并且它们的文件名与Excel中的数据对应，您可以通过复制图片文件路径，然后在Excel中的单元格中粘贴路径来快速导入多个图片。
- 使用VBA宏：如果您对VBA编程有一定的了解，您可以编写一个宏来自动导入大量图片。这样可以节省时间和精力。
请注意，插入大量图片可能会增加Excel文件的大小，并且可能会影响文件的性能。因此，在导入大量图片之前，请确保您的计算机具有足够的内存和处理能力来处理这些图片。
1、全选表格，调整表格的列宽行高。
2、点击【插入】-【图片】，将导入的图片全部选择插入进来。
3、在上方的图片设置栏中设置图片的大小宽度。
4、在最后一个单元中首先插入图片。并再次选中所有图片，在【排列】栏中选择【对齐】-【左对齐】，这样所有的图片都会排列整齐。
5、再次点击【对齐】-【纵向分布】，如此一来，所有的图片都会规整的移动到自己的单元格中，无需你手动去一张一张的去拖动了。
可以按照以下步骤批量将图片嵌入单元格：
1. 在 Excel 中，选择要将图像插入的单元格区域。
2. 点击“插入”选项卡中的“图片”按钮。
3. 浏览您的计算机以找到所需的所有图像。
4. 选择并插入第一张图像后，单击图像以显示“格式”选项卡。
5. 在“格式”选项卡上，单击“大小和属性”组中的“锁定纵横比”复选框。
6. 然后，将“图像切入单元格”设置为所需的行为，如“紧贴单元格”。
7. 重复以上步骤，直到所有需要插入的图像都插入到单元格中。
8. 如果您需要更改任何图像的大小或位置，请单击该图像，并使用“格式”选项卡上的“大小和属性”组设置。
9. 保存工作表。

❷ excel表格如何使用宏在当前单元格内插入图片

代码如下先给你，我先声明下，我也是之前需要这个操作在网上找的，可以实现你的功能，很好用。

具体用法：

1. 打开excel的VB，把代码复制进去。

2. 在A列输入需要插入照片的名称，然后选定这些有名称的单元格（重点！要选定）。

3. 然后运行宏，在弹出的对话框选【否】，意思就是在名称的右边插入图片，上面的汉字应该也能看懂。

4. 然后会出来一个对话框让你选择路径，选择你放照片的那个文件夹，点击文件夹里的任意一张照片点【打开】。

5. 然后照片就插进去了，而且是每张照片都填满单元格。

6. 建议提前把单元格的大小设置好然后再运行宏。

   如下看我的示例，功能真鸡儿强大，再次膜拜下VB大神。

7. 

Sub A()

Dim Rng As Range

Set Rng = Selection

K = MsgBox("Yes=按姓名行下插入，No=按姓名列右挿入,Cancel=直接覆盖插入", vbYesNoCancel)

If K = vbYes Then

r = 1: c = 0

ElseIf K = vbNo Then

r = 0: c = 1

Else

r = 0: c = 0

End If

Pf = "ai,"

Pf = Pf & "bmp,bmz"

Pf = Pf & "cdr,cgm,"

Pf = Pf & "dib,dwg,dxf,"

Pf = Pf & "emf,emz,eps,exf,exif,"

Pf = Pf & "fpx,"

Pf = Pf & "gfa,gif,"

Pf = Pf & "hdr,"

Pf = Pf & "ico,"

Pf = Pf & "jfif,jpe,jpeg,jpg,"

Pf = Pf & "pcd,pct,pcx,pcz,pict,png,psd,"

Pf = Pf & "raw,rle,"

Pf = Pf & "svg,"

Pf = Pf & "tga,tif,tiff,"

Pf = Pf & "ufo,"

Picformat = Pf & "wdp,wmf,wmz,"

OpenFile = Application.GetOpenFilename("Picture Files(*.*),*.*", , "打开目的档案夹后选择任一图片即可指定资料夹。或按取消则会将当前档所在资料夹认作指定资料夹。")

If OpenFile = False Then

myDir = ThisWorkbook.Path & ""

Else

myDir = Left(OpenFile, InStrRev(OpenFile, ""))

End If

Application.ScreenUpdating = False

Filename = Dir(myDir)

Do While Filename <> ""

If InStr(Picformat, LCase(Right(Filename, Len(Filename) - InStrRev(Filename, ".")))) > 0 Then

PicName = Left(Filename, InStrRev(Filename, ".") - 1)

Rng.Select

On Error Resume Next

Selection.Find(What:=PicName, After:=ActiveCell, LookAt:=xlWhole).Activate

If Err.Number <> 0 Then

Err.Clear

Else

ActiveSheet.Pictures.Insert(myDir & Filename).Select

With Selection

.Placement = xlMoveAndSize

.ShapeRange.LockAspectRatio = msoFalse

.Top = ActiveCell.Offset(r, c).Top

.Left = ActiveCell.Offset(r, c).Left

.Height = ActiveCell.Offset(r, c).Height

.Width = ActiveCell.Offset(r, c).Width

End With

End If

End If

Filename = Dir

Loop

Rng.Select

End Sub

❸ 电子表格和文档如何添加图片自动排列

图片插入部分操作步骤：

1、新建WORD文档，设置为A4纸，并设置好边界距离

2、计算好A4纸扣除边界距离所剩下的空白空间

3、将需要载入WORD的图片SIZE设置为A4剩余空间除以3后的数字大小（实际SIZE须略小于这个数字）

4、在word菜单中选择插入图片，将所有图片一次性插入文档，图片将会自动排列成3X3的版式。

5、效果如附图

或者

1、新建EXCEL空白档，设置好需要的边界

2、打开工具选项，打开”宏“，新建一个”宏”命令

3、插入9张图片，依次修正大小，排好版面

4、保存宏命令，设置执行宏命令快捷方式，架设为ctrl+1

5、在EXCEL的第二个工作标签插入第二组9图，执行ctrl+1宏命令，则电脑将会自动把工作表1的所有操作重复操作1次，直至自动排版完成。

6、最后保存为电子档。

❹ 在EXCEL中怎么用宏插入图片

材料/工具：电脑、Excel2007

1、首先，打开Excel表格，点击表格最左上边office按钮---excel选项 。