プロポーショナルフォントの文字列から印刷幅を求める関数

Question

フォントと文字列を指定して必要なピクセル数を求める関数はありますか

備考欄なのですが2文字程度のあふれなら縮小、それ以上なら改行して全体表示させるマクロを作りたいのです

固定長フォントにすれば文字数から判断できますがPフォントなので

別シートに該当文字列を入れてAutoFitして求めることも考えましたがあまりスマートじゃないで
何かで見た記憶があるのですがVBAじゃなかったのか探しても見つから無かったので質問させていただきます。

end-u · Accepted Answer

検索してみたら、APIのGetTextExtentPoint32関数で取れそうな感じですが...
http://msdn.microsoft.com/ja-jp/library/cc410400.aspx
よくわかってないのでハズしてたらすみません。

『No16666.テキストボックスからはみ出た文字を削除する方法』
http://www.accessclub.jp/bbs2/0051/beginter16666.html
ここを参考にテストしてみて、Ｐフォントの各文字幅が取れるところまでは確認しました。（文字列全体も）
Function GetTextExtent　にControlではなくFontを渡すように修正したり、
dxdy.cx取得後の変換が必要だったりするような感じではありますが。

Wendy02 · Answer

こんにちは。
#4 です。
少し、コメントです。

>多分プリンターとAPIで会話してるとは思っていません
>ドライバーにそこまでの機能を持たせるか疑問もありますし

ドライバの機能は関係ありません。API　は、Excelとプリンタ側のインターフェイスがあるのだと考えるのは当然だと思います。結局、公開されなかったように思います。こちらがずっと何年もかかって考えてきたものを否定するのは自由ですが、そのような目算があるなら、ご自身でコードが書けるのでは？

KenKen_SP · Answer

仮にそのような便利なプロパティー・メソッドがあったとしても
公開されてないのでは、自力計算するしかないでしょう。

多分、プリンタのデバイスコンテキストに CreateFont、DrawText
で計算できると思う。

DrawText の第４引数 Rect 構造体に実際の描写サイズがピクセル
で返されます。つまり、まず標準フォントの 0（ゼロ）の
横ピクセル数X1を求め、次に目的の文字列の世サイズX2を測る。

ColumnWidth に設定すべき値W（単位：標準フォント文字数）は
　　　W = X2 / X1
で求まる...と思う(・∀・)

Wendy02 · Answer

こんにちは。

中をよく読んでみると、最初の質問タイトルと内容が若干違うようですが。
印刷の長さを求める話と、セルの文字があふれるかどうかとは、まったく別問題のはずです。

>固定長フォントにすれば文字数から判断できますがPフォントなので

今、試してみると、AutoFit に対しては、それほどに違いがないようですが。
#3のend-uさんの着目点にある、マージンは、私は、以前、「調整余白」という名前を付けましたが、
/S|FONT|s|FONT|s|FONT|s|FONT|S/ ということで、これが、プロポーショナルの場合は、Sもs も微妙に変わって、文字列が、セル長になると一文字ぐらい変わってしまうようです。

それぞれのセルの中のフォントの種類、フォントの大きさ、文字列等の長さ、そして、それらのセルの数によって、印刷時にその縦と横が微妙に変ってくる、と考えています。そこに「調整余白」が働きます。

>別シートに該当文字列を入れてAutoFitして求めることも考えましたがあまりスマートじゃないで

AutoFit でも、それで本当に取れるなら良いのではないでしょうか？
実行する前に、Width を取っておいて、必要なければ、また元に戻せばよいです。

>フォントと文字列を指定して必要なピクセル数を求める関数はありますか

ピクセルではなくて、幅に対するポイントだと思います。ピクセルでは、正しく出てきません。

実数値から定数を出すしかないと思います。そこから、一定の係数は出せませんでした。とは言っても、コードがないと話にならないと思います。（最後に書きます)

>Excel自身がAutoFitやAutoSizeに必要で求めるはずなのでどこかには必ずある

これは、公開されていません。これは、Excel Application の持つ、APIでしょうけれども、Excel 4.0 マクロ関数にもありません。ずいぶん調べましたが、見当たりません。今回の要件とは話が違いますが、Excel自体から、APIによって、プリンター側から物理的な距離を取り出すことはしているのは想像できます。それを一旦、セルそれぞれに割り振りして、その数値を丸めて、再び、セルの数だけ足し算しているので、左端だけは設定できて、後はずれてしまうという現象は理屈には合います。
------------------------------------------------
「文字列がセル幅に入るかどうかをチェックするマクロ」
ずいぶん昔に作ったものですが、AutoFit よりも狭いと「文字列は入らない」と出てくるはずです。ただし、入らないとメッセージが返っても、表示する分には見かけ上は入ったように見えるはずです。
とはいっても、完成されたものではありません。おのおのの環境でも違ってくるはずですし、いずれは、Excelが人気が続いている限りは、できるようにはなるとは思いますが……。
'----------------------------------------------------------------
'書式スタイル・フォントのサイズは、11(10-12まではOKだったはず)
'----------------------------------------------------------------
Const dPO As Double = 3.75 'ポイント定数
Const iK As Integer = 6 'セル幅定数
Const dALNMGN As Double = 0.2 '全角調整余白（マイナス分)
Sub Test_Cell()
　　Dim myStr As String
　　Dim myStrLength As Long
　　Dim mgWdth As Double
　　Dim iFlg As Integer
　　Dim pt As Double
　　Dim Diff As Double
　　iFlg = 0
　　With ActiveCell
　　　　If TypeName(.Cells) = "Range" And .Width > 0 Then
　　　　　　mgWdth = .Width
　　　　　　myStr = .Value
　　　　　　myStrLength = LenB(StrConv(myStr, vbFromUnicode))
　　　　　　Diff = LenB(StrConv(myStr, vbFromUnicode)) - Len(myStr)
　　　　　　pt = Int(((mgWdth - dPO) / iK) * 100 + 0.5) / 100
　　　　End If
　　　　If InStr(1, .Font.Name, "P", 1) >= 4 Then
　　　　　　iFlg = 1 'プロポーショナルの場合
　　　　　　Diff = dALNMGN * Diff　 '全角における調整余白
　　　　Else
　　　　　　iFlg = 0
　　　　　　Diff = 0
　　　　End If
　　End With
　　If pt > 0 Then
　　　　If Int(pt + 0.5 * iFlg + Diff) >= myStrLength Then
　　　　　　MsgBox　"その文字列はセルに入ります.", vbInformation
　　　　Else
　　　　　　MsgBox　"その文字列はセルに入りません.", vbCritical
　　　　End If
　　End If
End Sub

'-------------------------

end-u · Answer

一応確認ですが、最初から[折り返して全体を表示する]に設定しておくのはナシなんですね？

といってもダイレクトに幅を求める関数を提案できるわけではなくて、
>別シートに該当文字列を入れてAutoFitして求めること...
よりちょっとだけ簡易な方法として

Sub test()
　　Const MARGIN As Single = 15
　　
　　With ActiveCell
　　　　If widthCheck(.Item(1)) > .Width + MARGIN Then
　　　　　　.WrapText = True
　　　　End If
　　End With
End Sub

Function widthCheck(r As Range)
　　Dim ret As Single
　　
　　With r.Worksheet.TextBoxes.Add(0, 0, 0, 0)
　　　　.AutoSize = True
　　　　With .Font
　　　　　　.Name = r.Font.Name
　　　　　　.Size = r.Font.Size
　　　　　　.Bold = r.Font.Bold
　　　　End With
　　　　.Text = r.Text
　　　　ret = .Width
　　　　.Delete
　　End With
　　widthCheck = ret
End Function

...こんなアプローチもあるのではないでしょうか。
#特定のシートならTextBoxes.Add/Deleteではなく、Visible = FalseにしてName指定でも良いと思います。

imogasi · Answer

関数は引数のセルの値を使って、セルの値を導き出すもの。
プロポーショナルフォントは見栄えを重視して縦横画数などで大きさを決めていると聞いている。文字数は何万もあり、プロポーショナルのタイプは有るかもしれないが、計算で求められるものではなかろう。ある文字を指定した場合、ピクセル数を書いた書物やWEBなど見たことない。エクセ関数ではそのピクセル数を求める関数はない。文字ごとピクセル数の表が見つかったとしても、エクセルにその表を持って検索して合計するのも表が膨大過ぎて馬鹿げている。
いままで９年ぐらいここの質問コーナーのエクセルの質問を見ているが、初めての質問タイプかなと思う。VBAの標準のメソッドプロパティを操る程度のプログラムでは実際のフォントからピクセル数を導出するコードは組めないとおもう（API以上で出来るかどうか）と思う。
エクセルでは、そこまでカバーしないということだと思う。DTPやWEBではそこまで要求があるかもしれないとは思う。
style.width の話が出ているが、VBSCRIPTにもそれらしきものは無いようだが。
VB.NETではWEBをカバーする関係で、そういう指定が出来るようだ。
マニアックにならずに路線変更を勧める。

ksys2009 · Answer

javascriptのstyle.widthではないでしょうか。　
javascript⇒vbscript⇒vbaになれば良いのですが。

プロポーショナルフォントの文字列から印刷幅を求める関数

検索してみたら、APIのGetTextExtentPoint32関数で取れそうな感じですが...

こんにちは。

この回答への補足

仮にそのような便利なプロパティー・メソッドがあったとしても

こんにちは。

一応確認ですが、最初から[折り返して全体を表示する]に設定しておくのはナシなんですね？

関数は引数のセルの値を使って、セルの値を導き出すもの。

javascriptのstyle.widthではないでしょうか。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング