|
MKAT さん、こんばんわ。
>大文字小文字が混在していますし、表示される文字の長さ
>ですので、文字数の判別ではなんともなりません。
シート上にコントロールツールボックスからラベルを置いて、そこに文字列を入れてラベルのサイズを測るという方法もあります。
シートにラベル(Label1)を置いて実行してみてください。
Sub test()
Dim obj As OLEObject
Set obj = ActiveSheet.OLEObjects("Label1")
With obj.Object
'折り返しナシ、サイズ調整アリ、フォントサイズ12
.WordWrap = False
.AutoSize = True
.Font.Size = 12
'外人の名前とラベルサイズの関係
.Caption = "Philip Rivers"
MsgBox "約 " & obj.Width * 0.35 & " mm", vbInformation, .Caption
.Caption = "Shawne Merriman"
MsgBox "約 " & obj.Width * 0.35 & " mm", vbInformation, .Caption
.Caption = "LaDainian Tomlinson"
MsgBox "約 " & obj.Width * 0.35 & " mm", vbInformation, .Caption
End With
End Sub
どうでしょうか。
|
|