插入和打印文具

Question

我正在尝试这几个小时，但我无法弄清楚如何在Excel 2010中在我的背景中获得图像作为信纸。在所有方面，似乎我只是无法获得它从左上角传播到右下角。

我可以用宏来实现吗？还是有其他方法可以做到这一点？

Answer 1

参见microsoft link

引述
“在Excel中，可以使用图像作为片材背景仅用于显示目的。一种片材背景不打印，并且不保留在个体工作表或作为网页保存的项目仅在将整个工作簿作为网页发布时才会保留
重要由于不打印工作表背景，因此无法将其用作水印。通过在页眉或页脚中插入图形来实现水印。“

Answer 2

这段代码会让你选择一个图片（你已经可以有一个适应这样的代码），它会调整图片以适应了printArea并调整它了printArea的左上角：

Option Explicit 

Private Sub Test() 
    Dim PicLocation As String 
    Dim MyRange As Range, TargetCell As Range 

    Set MyRange = Range(ActiveSheet.PageSetup.PrintArea) 
    Set TargetCell = MyRange.Cells(1, 1) 

    PicLocation = Application.GetSaveAsFilename("C:\", "Image Files (*.jpg),*.jpg", , "Specify Image Location") 

    If PicLocation <> "False" Then 
     ActiveSheet.Pictures.Insert(PicLocation).Select 
    Else 
     Exit Sub 
    End If 

    With Selection.ShapeRange 
     .LockAspectRatio = msoTrue 
     If .Width > .Height Then 
      .Width = MyRange.Width 
      If .Height > MyRange.Height Then .Height = MyRange.Height + ActiveSheet.PageSetup.HeaderMargin + ActiveSheet.PageSetup.BottomMargin 
     Else 
      .Height = MyRange.Height 
      If .Width > MyRange.Width Then .Width = MyRange.Width + ActiveSheet.PageSetup.LeftMargin + ActiveSheet.PageSetup.RightMargin 
     End If 
     .Left = TargetCell.Left - ActiveSheet.PageSetup.LeftMargin 
     .Top = TargetCell.Top - ActiveSheet.PageSetup.HeaderMargin 
    End With 

    With Selection 
     .Placement = xlMoveAndSize 
     .PrintObject = True 
    End With 
End Sub