>わたしは横書きのとき、右にあく空白がいやで縦書きにしているので、

そうだったんですね。でも横書きでも QX 本体あるいはドキュメントの編集ウィ
ンドウの幅の設定で、そんなにはたくさん空かないようにできますけど……。QX
を最大表示にしてお使いのようですね。

こんなことをマクロでできないか、ということについて、ごく簡単なことでした
らここでもご相談にのります。ちょっと複雑になりそうでしたらマクロ・メーリ
ングリストへどうぞ。あちらではマクロ作りの質問だけでなく、こんなマクロを
作ってほしい、という話題もＯＫのようです。（そうですよね、itam さん。）

あと、ねこみみ さんのマクロは、あれはマクロの領域を超えたレベルなんでほ
んとになんでもできてすごいんですが、簡単な作業を自動化するだけならもっと
単純なマクロでじゅうぶん役に立ちます。この際、作ってみてはいかがですか。

フォントサイズを大きくした時に文字が画面からはみ出さない
ように一行表示文字数を減らしてくれて、
小さくした時には逆に増やしてくれるマクロってありますか。

えっと、QX の画面表示のフォントサイズはポイント数とかじゃなく、ドット数
なので、たとえば表示行１行の総ドット数が一定になるように、フォントサイズ
と文字数を調節すればいいんじゃないでしょうか。すなわち、こんな感じ。１つ
めはフォントサイズを大きくすると同時に１行文字数を減らし、２つめはその反
対です。フォントによっては２ドットずつ増やすのがうまくいかないかも。

'フォントサイズ変化にあわせて表示桁数を調節

proc larger
dim n
n = (@FontSize + @CharPitch) * @Width
@FontSize = @FontSize + 2
@Width = n / (@FontSize + @CharPitch)
end proc

proc smaller
dim n
n = (@FontSize + @CharPitch) * @Width
@FontSize = @FontSize - 2
@Width = n / (@FontSize + @CharPitch)
end proc

イイ！
イイ感じです。
早速ツールバーに登録しました。
コレ便利ですよ。
即席でこれだけのものがつくれるとは。
感謝。

だいたいご希望の動作になってるようで、よかったです。

「これだけのもの」なんて、正味３行のマクロをそんなにほめられる
と困っちゃいますが。

自分の場合
@Width = (n-8) / (@FontSize + @CharPitch)
@Width = (n+20) / (@FontSize + @CharPitch)
ぐらいに微調整すると上手くいくみたいです。
人によって違うかもしれませんが。

桁がずれてきた時のために、かぶねこさんのマクロを参考にして
こんなんつくってみました。マクロ（もどき）初体験。

'桁数調節

proc plus
@Width=@Width+1
end proc

proc minus
@Width=@Width-1
end proc

なるほど〜。

もし表示画面が一定なら、n とかじゃなく、決まった数値にしてしまうっていう
手もあります。最初に手作業でその数値を計算しなければいけませんが。決まっ
た数値にしておくと、割り算のあまりが原因の幅のずれがなくなるはずです。

proc larger
@FontSize = @FontSize + 2
@Width = 960 / (@FontSize + @CharPitch) '数値は表示１行ドット数
end proc

といったふうになります。ドット数は

proc main
print (@FontSize + @CharPitch) * @Width
end proc

というマクロを実行すると、ステータスバーに数値が表示されます。

ぱちぱち。

最初の一歩、おめでとうございます。あとは行数が増えるだけですね。「こんな
ことができると便利」と思うごとに「マクロでできないかな」とやってみてるう
ちに、たぶんしょっちゅうマクロを書くようになっちゃってます。(^_^)v

かぶねこさん、Replyどうも。

> そうだったんですね。でも横書きでも QX 本体あるいはドキュメントの編集ウィ
> ンドウの幅の設定で、そんなにはたくさん空かないようにできますけど……。QX
> を最大表示にしてお使いのようですね。

縦に長いディスプレイがあれば横書きで全然問題ないんですけれども。
テレフォンショッピングでそういうパソコンを見たことがあります。

> こんなことをマクロでできないか、ということについて、ごく簡単なことでした
> らここでもご相談にのります。

ではお言葉に甘えさせていただきます。

Hanさんの常駐リスト強化マクロを使用していますが、「このファイルから
エクスプローラ」というメニューがありますよね。
わたしの環境ではどういうわけかエクスプローラが異常に遅く、
フォルダ開くのに30秒とかかかってしまいます。
それでフリーのファイラを使っているのですが、エクスプローラの
代わりにファイラを起動できないでしょうか。
（その際常駐リストで選択したファイルのあるフォルダを開く）

思うに、別マクロで「常駐リストで選択したファイルをアプリケーション（ファイラ）
にわたす」というマクロをつくって、常駐リスト強化マクロのQMAファイルを
書き直せばよいと思うのですが。
常駐リスト関連の既存のマクロを見てもちょっとわたしにはわかりませんでした。
qmaファイルの方はごく簡単ですが。