[已解决]如何返回shape对象名字的中文部分

爱疯 · 发表于 2012-1-17 15:10

本帖最后由爱疯于 2012-2-12 15:37 编辑

MsoAutoShapeType 枚举.rar (196.67 KB, 下载次数: 12)

上清宫主 · 发表于 2012-1-17 15:40

是汉化的问题？？？？？

没改代码，只动了下名字就变求了

上清宫主 · 发表于 2012-1-17 15:44

虽然"矩形"就是"Rectangle"，搞求不懂

爱疯 · 发表于 2012-1-17 15:56

本帖最后由爱疯于 2012-1-17 16:11 编辑

上清宫主发表于 2012-1-17 15:44
虽然"矩形"就是"Rectangle"，搞求不懂

通过（手动）修改shape的名字，就能“所见即所得”，学习了{:201:}

这样试
Sub a()
Sheet1.Shapes(2).Name = Sheet1.Shapes(2).Name & "加点中文"
MsgBox Sheet1.Shapes(2).Name
End Sub
结果不行。

另，要能读取“名称框”里内容就好了。可没找着读取办法

1楼问题，是想让这个附件里能输出中文名字

MsoAutoShapeType 枚举.rar (196.67 KB, 下载次数: 15)

爱疯 · 发表于 2012-1-17 16:16

是的，英文+空格+数字
空格和数字，可去除掉，但剩余部分，无法让英文变中文。

爱疯 · 发表于 2012-1-17 16:19

对于1楼，07返回"button 1"

wayy · 发表于 2012-1-17 16:21

Sub test1()
Dim i As Integer, h As Integer, r As Integer
Dim shp As Shape
Dim RegEx
Call test0
r = 1
For i = 1 To 137
'默认width是54磅，所以图片width也取54
'默认height是13.5磅，所以图片height取其4倍
Set shp = ActiveSheet.Shapes.AddShape(i, 0, h, 54, 54)
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "[^\u4e00-\u9fa5]"
Cells(r, 3) = .Replace(shp.Name, "")
End With
'Cells(r, 3) = shp.Name '用作存放shape对象名称的单元格行号
r = r + 6 '每次添加后，向下移动6行
h = h + 81 '81是因为默认13.5磅，所以取其6倍
Next i
End Sub

复制代码

FF7 · 发表于 2012-1-17 16:25

有没有localname这个属性？一般情况下这个表示本地语言名称！

FF7 · 发表于 2012-1-17 16:26

%d%a有没有localname这个属性？一般情况下这个表示本地语言名称！我是手机发的，没办法测试！

爱疯 · 发表于 2012-1-17 16:27

FF7 发表于 2012-1-17 16:26
%d%a有没有localname这个属性？一般情况下这个表示本地语言名称！我是手机发的，没办法测试！

谢谢ff7!
没有呀

		自动登录	找回密码
密码			注册

[已解决]如何返回shape对象名字的中文部分

相关帖子

评分

点评

点评

评分