Question

我制作了一个应用程序，可以从配置文件中的数据表中绘制管道。显示的一部分包括“驻留”值，这些值是文本框中的“自定义”数字格式（例如，值25713.16中的2571 + 36）。文本框由我的代码生成和删除，因此系统提供的名称随每次“刷新”而变化。我命名文本框，以便我可以编程方式引用它们，但一直无法找到设置格式的方法。我尝试了一堆方法但没有工作...... ws.Shapes.AddTextbox（msoTextOrientationHorizontal，Stat1X，StationingY，_ 60,15）.Name =“Stat1Text”

ws.Shapes("Stat1Text").DrawingObject.Text = Stat1AText

'ws.Shapes("Stat1Text").Text = Format(Number, "0000+00") 'tried
'ws.Shapes("Stat1Text").Value = Format("Stat1Text", "0000+00") 'tried

ws.Shapes("Stat1Text").Line.Visible = msoFalse
ws.Shapes("Stat1Text").TextEffect.FontBold = msoTrue
ws.Shapes("Stat1Text").TextEffect.FontSize = 10

使用Excel vba

0 个答案: