Excel VBA : 텍스트 상자 내에서 글꼴 크기와 맞춤을 변경하는 방법

Question

텍스트 상자의 격자를 만들었지 만 글꼴 크기와 정렬 방법을 알아낼 수 없습니다 (세로 및 가로로 중앙 집중화). 명명 된 텍스트 상자.

Sub addtxtbx() 
Dim shp As Shape 
Dim i As Integer, j As Integer, k As Integer 
Dim cindx as long, rindx as long 
For i = 1 To 145 
Set shp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _ 
      100 + cindx, 100 + rindx, 50, 50) 
    cindx = (i - Int((i - 1)/4) * 4 - 1) * 50 + Int((i - 1)/48) * 200 
    rindx = (Int((i - 1)/4) - Int((i - 1)/48) * 12) * 50 
    With shp 
     .Name = "TxtBx" & (i - 1) 
     .Fill.ForeColor.RGB = RGB(204, 102, 255) 
    End With 
Next i 

With ActiveSheet.Shapes.Range(Array("TxtBx11")).TextFrame2.TextRange 
    .Characters.Text = "R" 
End With 
End Sub 

또한 For Next 루프의 i 카운터로 머리를 긁적니다. 나는 그것을 텍스트 상자의 이름을 바꾸는 데 사용하고 i = 1에서 144까지 사용했지만 TxtBx144는 마지막 상자가 아니지만 두 번째 마지막 TxtBx2가 첫 번째 상자라는 것을 알았습니다. 그래서 저는 1에서 145 사이의 값을 사용하고 상자를 (i-1) serial을 사용하여 상자에 넣으려고했습니다. 나는 무엇을 잘못해서 내가보기에 실패 했는가?

Answer 1

은 당신이하고 싶은 것은 이것이다 : 20 당신이 원하는 크기

shp.ShapeRange.TextFrame2.TextRange.Font.Size = 20 

.

왜 텍스트 상자에 번호가 잘못 매겨 졌는지 모르겠지만 작성한 코드는 실제로 1-14가 아닌 0-143을 제공하므로 일부 코드는 내가 변경하지 않았다고 의심됩니다. 질문에 넣거나 다른 일이 벌어지고있다.

또한 코드를 작성하는 방법을 알아내는 가장 쉬운 방법은 매크로를 기록하고 수행하려는 모든 작업을 수행하고 매크로를 중지 한 다음 코드를 살펴 보는 것입니다.