excel里面添加的背景怎样才可以平铺版面啊？我之前把背景加进去打出来的背景是一个个的小图

格式 工作表 背景 这种背景就是平铺的。这个不能打印。

能打印的，请看：http://zhidao.baidu.com/question/277001539.html

Excel背景打印之招法

在Excel中,可以设置工作表的背景(格式→工举差行作表→背景)，但是这些背景一般都不能被打印出来。有两种方法:

一、页眉法（此法仅适用于Excel2002及后续版本）

1、 准备一幅要作为背景的图片，将它设置为650×1000象素大小；

2、 启动Excel2003，打开需要添加背景效果的工作簿；

3、 在页眉设置中插入图片。（视图→页眉页脚→自定义页眉）

二、摄影法

1、 执行工具自定义命令，打开自定义对话框；

2、 切换“命令”标签下，在“类别”下面选中“工具”选项，然后将“命令”下面的“照相机”选项拖到工具栏适合的位置上，关闭；

3、 选中需要设置背景的单元格，单击工具栏上刚才添加的“照相机”按钮正哗；

4、 切换到一空工作表，单击一下，工作表中即刻出现一张照片；

5、 选中图片，执行“格式→图片”命令，庆乱打开“设置图片格式”对话框，“填充效果”里选择背景图片。

在 Excel 中，有时会需要用到插入图片这一功能，有朋友苦恼不能把图片平铺，下面是我带来的关于excel 2007平铺图片的 方法 的内容，欢迎阅读!

　 　excel 2007平铺图片的方法1： 打开宴燃悉工作簿，选择【批量插图片】，如下图

这里一共有四种命名方式，我们将一一讲解

　excel 2007平铺图片的方法2： 第1种，【A4尺寸插入】

这是用于打印的方式，插入的图片，每张占用一张A4纸的大小

选择后会d出如下的窗体

【图片加宽】是用于调整图片显示的大小，可以根据您的需要进行设置

每张图片会根据的固定的比例进行缩放，不会导致图片变形

运行后的效果如下图【为了便于截图，下面是缩小后的效果图】

　excel 2007平铺图片的方法3： 第2种，【比例缩放插入】

这是一种用于观赏的方式，图片的显示大小可以自由设置，图片根据设置的比例缩放，不会变形

运行后的效果，如下图

　excel 2007平铺图片段慧的方法4： 第3种，【原始尺寸插入】

图片不进行缩放，是多大就显示为多大

　excel 2007平铺图片的方法5： 第4种，【填满单元格插入】

每张图片占用一个单元格，图片的高度和宽度与单元格的高度和宽度一致

选择后会d出晌乎如下对话框

Sub 单元格自动插入图片()

'选定起始单元格后，按一定行数(1-n)自动往返插入各种格式的图片，

'并在单元格中写入插入图片的名称。

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,"

Pf = Pf &"仿皮wdp,wmf,wmz,"

K = InputBox("插入行数，1=按列挿入", "插入行数", 1)

If K = "" Then Exit Sub

Dim Rng As Range: Set Rng = ActiveCell

OpenFile = Application.GetOpenFilename("Picture Files(*.*),*.*", , "打开目标文件夹后选择任一图片即可指茄大燃定文件夹。或按取消则会将当前文件所在文件夹认作指定文件夹。")

If OpenFile = False Then

myDir = ThisWorkbook.Path &"\"

Else

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

End If

Filename = Dir(myDir)

Application.ScreenUpdating = False

Do While Filename <>""

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

Rng.Cells(1 + n \ K, n Mod K + 1).Select

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

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

With Selection

.Placement = xlMoveAndSize

.ShapeRange.LockAspectRatio = msoFalse

.Top = ActiveCell.Top

.Left = ActiveCell.Left

.Height = ActiveCell.Height

.Width = ActiveCell.Width

End With

n = n + 1

End If

Filename = Dir

Loop

Application.ScreenUpdating = True

Rng.Select

End Sub

---