VBA中重叠的对象 - 文本框架不可见

Question

我有这样的问题：我在VBA代码中添加了几个对象（旋转90度的六边形）。每个对象有3行文本，但第2和第3文本之间是新的行分隔。我不知道为什么对象是重叠的（每个对象的范围边界是正方形但是透明的，所以我假设问题可能在这里），可见的方式只有2个第一行文本。它看起来像这样：3 hexagons overlapping text frame

选择了右下六边形，然后才能看到整个文本框架。我想看到所有3行文本芽我不知道该怎么做（或以某种方式把它带到前台）。这是代码

With ActiveSheet.Shapes.AddShape(10, e, d, 135, 117)
        .Rotation = 90                                          
        .TextFrame.Characters.Font.Size = 18                    
        .TextFrame.Characters.Font.Color = 1
        .TextFrame.HorizontalAlignment = xlHAlignCenter                 
        .TextFrame.Orientation = 2
        .TextFrame.Characters.Text =“Text1” & vbNewLine & "Text2" & vbNewLine & vbNewLine  & “Text3”
        .TextFrame.Characters(1, 4).Font.Bold = True
        .Fill.ForeColor.RGB = RGB(255, 255, 255)
        .Line.ForeColor.RGB = RGB(0, 0, 0)                      
        .Line.Weight = 1                                      
        .Visible = msoTrue
        .Line.Style = msoLineSingle
    End With