excel中插入文本框并填入指定内容，彩票组选走势图的制作求解

freeback

将后面指定的数字插入文本框，显示在对应的数字上面，如图中所示的样式，我已经实现插入的代码，代码如下：
Sub 宏4()'
' 宏4
'
    Dim rng2 As Range
    Set rng2 = Range("d4")
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, rng2.Left, rng2.Top, rng2.Width, rng2.Height).Select
    Selection.Formula = "=$J5"
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.ShapeRange.IncrementLeft 17 '文本框所在的位置，这个是右上角，LEFT和TOP同时使用
    'Selection.ShapeRange.IncrementLeft 22 '这个数字控制左右显示
    'Selection.ShapeRange.IncrementTop -6  '这个数字控制上下显示
End Sub


代码一起放在文件里面了，麻烦帮我看看怎么处理

iu950

没用文本框，直接在单元格内以上标显示

freeback

iu950 发表于 2023-2-6 13:35
没用文本框，直接在单元格内以上标显示

我试试看，你的这个方法

freeback

iu950 发表于 2023-2-6 13:35
没用文本框，直接在单元格内以上标显示

满足需求了，如果是移植到其他表格中，需要修改哪些参数呢？还有显示的上标字体稍微有点小，调整上标字体是With Rng.Characters(Start:=2, Length:=2).Font
                .Name = "宋体"
                .FontStyle = "加粗"
                .Size = 14
                .Color = vbRed
                .Superscript = True，，这个地方修改吗？