Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5265 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 発言[未読]
【51931】文字列の表示上の長さ
質問  MKAT  - 07/10/12(金) 10:22 -
引用なし
パスワード
   セルのデータに外国人の名前のデータがあります。
大文字小文字が混在しているデータです。

この名前の文字列の表示される長さを知りたいのですが、
具体的に言うと、そのデータを利用してWORDにリンクし
表示されるようになっています。

そのWORDに表示される名前の項目の幅がきまっており、
長い人は文字幅の倍率を狭める（長体をかける）ことで
対処したいです。

VBAを利用してなんとか長体対象の長い名前データを判別
したいのですが、なんとかできるものなのでしょうか？

大文字小文字が混在していますし、表示される文字の長さ
ですので、文字数の判別ではなんともなりません。

また、できなくてもある程度のきりわけがしたいです。


どうかよろしくお願いします。
【51936】Re:文字列の表示上の長さ
発言  ハチ  - 07/10/12(金) 13:31 -
引用なし
パスワード
   ▼MKAT さん：

文字列の表示上の幅は
フォントやフォントサイズによって変わってきますよね？
一発で調べるようなプロパティは無い　と思います。

>大文字小文字が混在していますし、表示される文字の長さ
>ですので、文字数の判別ではなんともなりません。

文字数の判定でやるのが無難だと思いますけど。

もしくは・・・・
自分でA〜Z　a〜z の1文字の幅を数値化しておいて、
一文字づつMidで切り出して
Select Caseあたりで判定
足し算していく

といったところしか思いつきません。
【51940】Re:文字列の表示上の長さ
お礼  MKAT  - 07/10/12(金) 14:46 -
引用なし
パスワード
   ▼ハチ さん：
>▼MKAT さん：
>
>文字列の表示上の幅は
>フォントやフォントサイズによって変わってきますよね？
>一発で調べるようなプロパティは無い　と思います。
>
>>大文字小文字が混在していますし、表示される文字の長さ
>>ですので、文字数の判別ではなんともなりません。
>
>文字数の判定でやるのが無難だと思いますけど。
>
>もしくは・・・・
>自分でA〜Z　a〜z の1文字の幅を数値化しておいて、
>一文字づつMidで切り出して
>Select Caseあたりで判定
>足し算していく
>
>といったところしか思いつきません。

では、そのようにしてチャレンジしてみます。
ありがとうございました。
【51951】Re:文字列の表示上の長さ　再送
発言  ichinose  - 07/10/12(金) 19:36 -
引用なし
パスワード
   こんばんは。
訂正があったため再送です。

>セルのデータに外国人の名前のデータがあります。
>大文字小文字が混在しているデータです。
>
>この名前の文字列の表示される長さを知りたいのですが、
>具体的に言うと、そのデータを利用してWORDにリンクし
>表示されるようになっています。
>
>そのWORDに表示される名前の項目の幅がきまっており、
>長い人は文字幅の倍率を狭める（長体をかける）ことで
>対処したいです。
>
>VBAを利用してなんとか長体対象の長い名前データを判別
>したいのですが、なんとかできるものなのでしょうか？
>
>大文字小文字が混在していますし、表示される文字の長さ
>ですので、文字数の判別ではなんともなりません。

これは、Word側のフォントが全角：半角が２：１になっている
計算しやすいフォントを選択しないと面倒ですよね！！


もう一つは、ワード側でExcelワークシートの挿入を使って
Oleobjectとして、ワークシートを配置して、セルの書式を
「縮小して全体を表示する」に設定して運用する方法です。

Excelのセルの書式の「縮小して全体を表示する」を選択した時のような
表示になればよいのですよね！！


新規ブックの標準モジュールに

'=====================================================================
Sub main()
　　Dim wk As Object
　　Dim ole As Object
　　Dim bk As Object
　　ThisWorkbook.Worksheets("sheet1").Cells(1, 1).Value = "ICHINOSE EXCEL"
　　Set wk = CreateObject("word.application")
　　wk.Visible = True
　　With wk.documents.Add
　　　 Set ole = .Shapes.AddOLEObject(ClassType:="Excel.Sheet.8", LinkToFile _
　　　　　　　　　:=False).OLEFormat
　　　 Set bk = ole.Object
　　　 With bk.Worksheets("sheet1").Cells(1, 1)
　　　　　 .ShrinkToFit = True
　　　　　 .Formula = "='" & ThisWorkbook.Path & "\[" & ThisWorkbook.Name & "]Sheet1'!$a$1"
　　　　　 End With
　　　 '.SaveAs Filename:=ThisWorkbook.Path & "\文書1.doc"
　　　 '.Close False
　　　 End With
　　'wk.documents.Open ThisWorkbook.Path & "\文書1.doc"
End Sub


上記のコードを含んだブックを名前を適当な名前で保存した後に
mainを実行してみてください。

ワードが起動され、ワードドキュメントにＯＬＥとしてExcelワークシートが挿入されます。

ＯＬＥシートのセルＡ１に　マクロを含むブックのSheet1のセルＡ１をリンクしました。
（ＯＬＥのシートのセルＡ１に「ICHINOSE EXCEL」と表示されます）

このＯＬＥシートの体裁を整えて、セルＡ１だけ表示するように調整します。

Excel側のSheet1のセルＡ１の変更がワード側にも反映されるはずです。

試してみてください。
【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
　　　'折り返しナシ、サイズ調整アリ、フォントサイズ１２
　　　.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

どうでしょうか。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5265 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free