如何将excel单元格粘贴为带有超链接的图像？

我有一个无法解决的问题。主要是因为我不熟悉VBA和编程

我能做什么：当我点击按钮时，我必须选择并复制单元格

C4:I26

，当我粘贴它们时，它们必须是图像。这已经发生了

但我需要这个图像有一个特定的超链接，当我粘贴它（在outlook上）。因此，当用户点击图像时，他会自动进入该网站

我现在拥有的代码如下。我不知道该怎么做

Sub copiar_texto()
    Sheets("Planilha2").Select
    Range("C4:I26").Select

    Application.CutCopyMode = False

    Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
    Selection.Copy
    
    Application.CutCopyMode = False

    Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

    Sheets("Planilha1").Select
    Range("F34").Select

    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 4")).Select

    Selection.OnAction = "copiar_texto"
    
    Range("H31").Select
    
    ActiveWindow.SmallScroll Down:=-30
End Sub

---

这将把从Planilha2到Planilha1的范围复制为图片，并向复制的形状添加超链接。如果我复制它并将其粘贴到Outlook邮件中，它将以完整的超链接到达

子测试仪（）
将shp变暗为形状
纸张（“平面HA2”）。范围（“C4:I26”）。复印图片_
外观：=xlScreen，格式：=xlPicture
带图纸（“平面图1”）
粘贴
设置shp=.Shapes（.Shapes.Count）
.Hyperlinks.Add锚定：=shp，地址：“http://www.google.com"
以
端接头

这将以图片形式复制从Planilha2到Planilha1的范围，并向复制的形状添加超链接。如果我复制它并将其粘贴到Outlook邮件中，它将以完整的超链接到达

子测试仪（）
将shp变暗为形状
纸张（“平面HA2”）。范围（“C4:I26”）。复印图片_
外观：=xlScreen，格式：=xlPicture
带图纸（“平面图1”）
粘贴
设置shp=.Shapes（.Shapes.Count）
.Hyperlinks.Add锚定：=shp，地址：“http://www.google.com"
以
端接头

嗨！非常感谢你的回答。我只有一个问题，对不起，如果这是一个愚蠢的问题，我真的是个新手。我是否用此代码替换当前代码？还是我把它加进去？因为我需要复制这些单元格，当我点击“Planilha1”上的“copiar texto”按钮时，您会将“Tester”分配给您现有的按钮。做得很好！：）你好非常感谢你的回答。我只有一个问题，对不起，如果这是一个愚蠢的问题，我真的是个新手。我是否用此代码替换当前代码？还是我把它加进去？因为我需要复制这些单元格，当我点击“Planilha1”上的“copiar texto”按钮时，您会将“Tester”分配给您现有的按钮。做得很好！：）你可能还想了解你可能还想了解