初心者のFileMaker pro Q&A (旧掲示板)

作業者

Member

文字サイズの自動縮小

Ｖ１２を利用しています。
住所とラベル住所のﾌｨｰﾙﾄﾞがあります。
ラベル住所は計算式で住所を指定しています。
住所は入力用で、ラベル住所はラベル印刷のレイアウトで使用しています。
ラベル住所は文字数が多いと手作業で文字サイズを小さくしてﾌｨｰﾙﾄﾞ枠内に収まるようにしています。
手作業は非常に手間が掛かり見落としもあるので、自動で文字サイズを縮小出来ないでしょうか。
可能であれば、色々な宛先に利用できます。
宜しくお願い致します。

nice-guy

Member

Re: 文字サイズの自動縮小

条件付き書式を設定しましょう。
該当するフィールでで右クリック→条件付き書式
計算式は
Length ( Self )>=10
その他書式から文字数が10文字以上なら、フォントサイズを１２
Length ( Self )>=14
その他書式から文字数が14文字以上なら、フォントサイズを１1

条件付き書式は上から順に該当するものがすべて実行されます。
従って、ポイントは文字数が少なくフォントサイズが大きい物から設定することです。
そうすれば、徐々にフォントサイズが小さくなります。
逆はダメです。

作業者

Member

Re: 文字サイズの自動縮小

条件付き書式を設定しましょう。
該当するフィールでで右クリック→条件付き書式
計算式は
Length ( Self )>=10
その他書式から文字数が10文字以上なら、フォントサイズを１２
Length ( Self )>=14
その他書式から文字数が14文字以上なら、フォントサイズを１1

条件付き書式は上から順に該当するものがすべて実行されます。
従って、ポイントは文字数が少なくフォントサイズが大きい物から設定することです。
そうすれば、徐々にフォントサイズが小さくなります。
逆はダメです。

有難う御座います。
やっと条件付き書式が理解でき、自動縮小が可能となりました。
ただ仲間（初心者）からはスクリプトでないと設計情報が見つかりにくく後々困るのでは言われたので、作ってみたのですが文字サイズを自動縮小するスクリプトが見つかりません。
スクリプトでは無理なのでしょうか？

計算式を挿入[ラベル住所；住所]
If[ Leng(住所ラベル＞＝10）]
Else
If[ Leng(住所ラベル＞＝15）]
End If
End If
以上

qb_dp

Member

Re: 文字サイズの自動縮小

フォントサイズの指定は、「関数：TextSize」を使用します。
TextSize : http://www.filemaker.com/help/15/fmp/ja … ze.html%23

後々困らないので、「条件付き書式」も活用した方が良いと思います。

作業者

Member

Re: 文字サイズの自動縮小

フォントサイズの指定は、「関数：TextSize」を使用します。
TextSize : http://www.filemaker.com/help/15/fmp/ja … ze.html%23

後々困らないので、「条件付き書式」も活用した方が良いと思います。

計算式を追加しました。
15文字以上であれば８ポイントにしたいのですが、換わりません。
どの様に修正すれば良いのでしょうか。

計算式を挿入[ラベル住所；住所]
If[ Leng(ラベル住所＞＝10）]
計算結果を導入[ラベル住所；TeXtSize（ラベル住所：10）]
Else
If[ Leng(ラベル住所＞＝15）]
計算結果を導入[ラベル住所；TeXtSize（ラベル住所：8）]
End If
End If

qb_dp

Member

Re: 文字サイズの自動縮小

スクリプトは、実行しましたか？
「条件付き書式」は、レイアウトの表示に合わせて動作しますが、スクリプトは、どのタイミングで動作させるかを設定する必要がありますよ。

計算結果を挿入
より
フィールド設定
の方が良いですよ。

計算結果を挿入 [選択; ラベル住所 ; TextSize ( ラベル住所 ; 8 )]

フィールド設定 [ラベル住所 ; TextSize ( ラベル住所 ; 8 )]

alias

Member

Re: 文字サイズの自動縮小

計算式を追加しました。
15文字以上であれば８ポイントにしたいのですが、換わりません。
どの様に修正すれば良いのでしょうか。

計算式を挿入[ラベル住所；住所]
If[ Leng(ラベル住所＞＝10）]
計算結果を導入[ラベル住所；TeXtSize（ラベル住所：10）]
Else
If[ Leng(ラベル住所＞＝15）]
計算結果を導入[ラベル住所；TeXtSize（ラベル住所：8）]
End If
End If

Leng(ラベル住所＞＝10）で処理が終わっているので、

計算式を挿入[ラベル住所；住所]
If[ Leng(ラベル住所＞＝15）]
フィールド設定[ラベル住所；TeXtSize（ラベル住所：8）]
Else If[ Leng(ラベル住所＞＝10）]
フィールド設定[ラベル住所；TeXtSize（ラベル住所：10）]
End If

だと思います。