使用VBA在Excel中绘图

Sub DrawName()    Dim i As Integer    Dim x As Single    Dim y As Single    Dim z As Single    Dim rng As Range    Dim n As Single    Dim k As Integer    Dim sSize As Single    Dim sh As Shape    Dim sName As String    Dim StartLeft As Single    Dim StartTop As Single    StartLeft = ActiveCell.Left    StartTop = ActiveCell.Top    sName = "Welcome to excelperfect !"    n = 17    k = Len(sName)    sSize = Application.InchesToPoints(1)    For i = 1 To k        If Mid(sName, i, 1) <> " " Then            x = n * i / k            x = Application.InchesToPoints(x)            y = Application.InchesToPoints(z)            If i Mod 2 = 1 Then                Set sh = ActiveSheet.Shapes.AddShape(msoShapeUpRibbon, StartLeft + x, StartTop + y, sSize, sSize)            Else                Set sh = ActiveSheet.Shapes.AddShape(msoShapeDownRibbon, StartLeft + x, StartTop + y, sSize, sSize)            End If             sh.Fill.ForeColor.RGB = RGB(GiveRandom(150, 200), GiveRandom(200, 255), GiveRandom)            sh.Fill.Visible = msoTrue             sh.TextFrame.Characters.Text = UCase(Mid(sName, i, 1))            sh.TextFrame.Characters.Font.Size = 20            sh.TextFrame.Characters.Font.Name = "Arial"            sh.TextFrame.Characters.Font.Bold = True            sh.TextFrame.Characters.Font.Color = RGB(0, 0, 0)             sh.TextFrame2.VerticalAnchor = msoAnchorMiddle            sh.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter        End If    Next iEnd SubFunction GiveRandom(Optional lowerBound As Integer = 100, Optional upperBound As Integer = 255) As Integer     Randomize Timer    GiveRandom = Int((upperBound - lowerBound + 1) * Rnd + lowerBound)End Function