excel中使用vba用相对路径随机插入背景图

以下是使用 VBA 在 Excel 中插入随机背景图的代码。这里假设您有一张名为 "background1.jpg" 的背景图，并且该图片和您的 Excel 文件位于同一目录下。

Sub InsertRandomBackground()
    Dim imagePath As String
    Dim imgIndex As Integer
    
    ' 设置图片路径为当前目录下的 background1.jpg，可以根据需要修改图片名称和路径
    imagePath = ThisWorkbook.Path & "\background1.jpg"
    
    ' 随机选择图片插入
    imgIndex = Int(Rnd * ActiveSheet.Shapes.Count) + 1
    
    ' 插入图片并设置为背景
    ActiveSheet.Shapes.AddPicture Filename:=imagePath, linktofile:=msoFalse, _
        savewithdocument:=msoCTrue, Left:=0, Top:=0, Width:=ActiveSheet.Range("A1").Width, _
        Height:=ActiveSheet.Range("A1").Height
    ActiveSheet.Shapes(imgIndex).ZOrder msoSendToBack
End Sub

这段代码会在当前工作表上随机选择一个已经插入的图片，并将 "background1.jpg" 插入到工作表中。您可以根据需要修改图片名称和路径。代码中的 `ActiveSheet.Range("A1").Width` 和 `ActiveSheet.Range("A1").Height` 是用于设置图片大小的代码，它将图片的大小设置为与单元格 A1 相同。您可以根据需要修改这些值。