代码之家 › 专栏 › 技术社区 › A Cohen

VBA-创建、编辑和超链接形状

shape excel vba

A Cohen · 技术社区 · 7 年前

For s = 7 To Sheets.Count
    With Sheets(s)
        Dim GoToSummary As Shape
        Set GoToSummary = .Shapes.AddShape(msoShapeRoundedRectangle, 400, 153 + 12.75 * 2, 300, 50)

        .Shapes(GoToSummary).TextFrame.Characters.Text = "Go Back To Summary"
    End With
Next s

我知道这是不对的,这就是为什么我要伸出援手,因为我找不到任何类似我的情况。

1 回复 | 直到 7 年前

barvobot 7 年前

Sub test()
Dim GoToSummary As Shape

For s = 7 To Sheets.Count
    Set GoToSummary = Sheets(s).Shapes.AddShape(msoShapeRoundedRectangle, 400, 153 + 12.75 * 2, 300, 50)
    GoToSummary.TextFrame.Characters.Text = "Go Back To Summary"
    Sheets(s).Hyperlinks.Add Anchor:=GoToSummary, Address:="", SubAddress:="Summary!A1"
Next s

End Sub

Dim GoToSummary 环路外
GoToSummary .Shapes(GoToSummary)
还添加了超链接

推荐文章

Muzib hardyVeles · 如何阻止透明填充圈将鼠标事件放入其中?

7 年前

Sujay U N · SVG矩形和路径渐变

7 年前

Online Bazaar PkBazaar.pk · 如何使用与浏览器兼容的CSS在HTML中创建形状

7 年前

ÐÐ°Ð½Ð¸Ð» ÐÐ°Ð³Ð°Ð¿Ð¾Ð² · 如何只设置圆的大小(在xml中)?

7 年前

A Cohen · VBA-创建、编辑和超链接形状

7 年前

Topi Anachname · 将alpha形状导出/光栅化为位图

7 年前

ali · 使用代码隐藏在wpf中创建圆角形状

7 年前

Y.Coch · R中的ggplo2:geom\U段显示的线与geom\U线不同

7 年前

M.Barandov · 在android中在形状上放置动态数字

7 年前

Dinesh · Tensorflow:静态和动态形状

7 年前