如何在Excel中使用VBA使图片显示在文本框之后

Sub InsertImageAfterTextbox()
    Dim ws As Worksheet
    Dim img As Picture
    Dim tb As TextBox

    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")  ' 替换为你的工作表名称

    ' 在工作表上插入文本框
    Set tb = ws.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 100).TextFrame.Characters

    ' 设置文本框文本
    tb.Text = "这是一个文本框"

    ' 插入图片并设置位置
    Set img = ws.Pictures.Insert("C:\path\to\image.jpg")  ' 替换为你的图片路径
    img.Left = tb.Left + tb.Width + 10
    img.Top = tb.Top

    ' 调整图片大小
    img.ShapeRange.LockAspectRatio = msoFalse
    img.Width = 100
    img.Height = 100
End Sub