excel vba调整文本大小以适应形状

Question

我想用形状来制作一些数据的图形表示（有点像项目管理甘特图。

如何调整（形状）文本的大小以确保其符合形状？