InDesignScriptForWindowsWeblog 表のセル幅と高さの設定

06 | 2009/07 | 08

日

月

火

水

木

金

土

結構需要がありそうなので、
書きためたScript群から
ひっぱりだしてきました。

ScriptはVBScriptです。
CS(3.0.1)で動作確認しています。

セルの幅を任意のサイズに設定するScript
'--------------------------------------------------------
'選択中のセルの幅を任意の値に設定します。
Set MyInDesign = CreateObject("InDesign.Application.CS")
A=InputBOX("幅") '単位入れても、入れなくても動きます。
MyInDesign.Selection(1).Width = A
Set MyInDesign = Nothing
'--------------------------------------------------------

セルの高さを任意のサイズに設定するScript
これは、高さの設定を固定にしておいてから実行してください。
'--------------------------------------------------------
'選択中のセルの高さを任意の値に設定します。
Set MyInDesign = CreateObject("InDesign.Application.CS")
A=InputBOX("高さ") '単位入れても、入れなくても動きます。
MyInDesign.Selection(1).Height = A
MyInDesign.Selection(1).MaximumHeight = A
Set MyInDesign = Nothing
'--------------------------------------------------------

お世話になっております。
上記スクリプトコードを参考にID2.02環境でTool作らせていただきました。
（VBSそのまま使おうとしたがID2では、うまく動かなかったため）
横幅・高さ共に最小の制限、横幅の最大の制限は回避できましたが、なぜか高さの最大制限200mmは回避できないようですね。不思議だ．．．

＞（VBSそのまま使おうとしたがID2では、うまく動かなかったため）

'--------------------------------------------------------
'選択中のセルの幅を任意の値に設定します。
Set MyInDesign = CreateObject("InDesign.Application")
A=InputBOX("幅") '単位入れても、入れなくても動きます。
MyInDesign.Selection.item(1).Width = A
Set MyInDesign = Nothing
'--------------------------------------------------------

'--------------------------------------------------------
'選択中のセルの高さを任意の値に設定します。
Set MyInDesign = CreateObject("InDesign.Application")
A=InputBOX("高さ") '単位入れても、入れなくても動きます。
MyInDesign.Selection.Item(1).Height = A
MyInDesign.Selection.Item(1).MaximumHeight = A
Set MyInDesign = Nothing
'--------------------------------------------------------

VB2005のコード補完機能でコード書いていたので気が付かなかったのですが、InDesign2.0仕様のVBSだとこれで動きますね。お目汚し失礼しました。