VBA 图形文字字体大小自适应

VBA中可以使用以下语句来自适应图形文字的字体大小：

ActiveSheet.Shapes("Shape1").TextFrame2.TextRange.Font.Size = _
    ActiveSheet.Shapes("Shape1").Height * 0.1

其中，"Shape1"表示要调整字体大小的图形对象的名称，0.1是一个比例因子，可以根据需要进行调整。这个语句将根据图形的高度自动调整其字体大小。