Select, Selection to przeważnie pozostałość po rejestrowaniu makra. Raczej się takich konstrukcji unika.
Można np. tak:
zmienna = "123"
With ActiveCell
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, .Left, .Top, .Width, .Height).Name = "TXBX_" & zmienna
End With
With ActiveSheet.Shapes("TXBX_" & zmienna).TextFrame
.Characters.Text = zmienna
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
End With
With ActiveSheet.Shapes("TXBX_" & zmienna).TextFrame2.TextRange.Characters(2, 2).Font
.Bold = msoTrue
.NameComplexScript = "Verdana"
.NameFarEast = "Verdana"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.Size = 6
.Name = "Verdana"
End With |