Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30051 / 76732 ←次へ | 前へ→

【51952】Re:文字列の表示上の長さ
発言  りん E-MAIL  - 07/10/12(金) 20:16 -

引用なし
パスワード
   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

どうでしょうか。

1 hits

【51931】文字列の表示上の長さ MKAT 07/10/12(金) 10:22 質問
【51936】Re:文字列の表示上の長さ ハチ 07/10/12(金) 13:31 発言
【51940】Re:文字列の表示上の長さ MKAT 07/10/12(金) 14:46 お礼
【51951】Re:文字列の表示上の長さ 再送 ichinose 07/10/12(金) 19:36 発言
【51952】Re:文字列の表示上の長さ りん 07/10/12(金) 20:16 発言

30051 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free