Square Beat Engine

Blog for variety of things…

MS-Office

[PowerPoint VBA] テーブルの各行の高さを揃える

投稿日:2015-08-26 更新日:

パワーポイントのテーブルには、「高さを揃える」という機能があるが、VBAにはそれに該当するメソッドが存在しない。
そこで、以下のプロシージャを自作した。

コード

解説

たいしたことは行っていない。
シェイプ全体の高さを行数で割って、1行あたりの高さを算出。
それを繰り返し処理で全行に適用している。

なお、この処理は呼び出し元が限定されていることもあり、エラー処理を入れていない。
引数がShape型なので、テーブルを保持していないShapeが引き渡された場合のエラー処理を入れた方がよい。
HasTableメソッドが役立つはずだ。

お願い

今回はメソッドが存在しないので自作したが、もしかしたら存在するかもしれない。
もしメソッドをご存じの方がいらっしゃれば、教えてくださると大変ありがたいです。

以上!

-MS-Office

執筆者:


comment

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

関連記事

[Excel][VBA] ブックの手動計算とValue(xlRangeValueXMLSpreadsheet)の危険な関係

VBAを使ってExcelで複雑なツールを作ろうとすると、いろいろと細かい部分でつまずくものだ。 今回は、ブックの計算を手動にしていても、特定の条件下で自動に戻ってしまうという現象に遭遇した。 Valu …

[Excel][VBA] ピボットテーブル「複数のアイテムを選択」の一括OFF

最近、VBAでピボットテーブルの操作にチャレンジしている。 細かい操作をする際に迷うことがあるので、Tipsとして紹介。 「複数のアイテムを選択」をOFF 前提 あらかじめピボットテーブルは作成済み …

[VBA] 数値からRGBを求める関数

VBAでは、RGB関数を実行して数値を求めることは可能だが、数値からRGBの各値を得る関数は存在しない。 プロパティから色を取得すると数値で表現されるため、数値からRGB値を求める関数を作成してみた。 …

[Excel][VBA] クリップボードを経由しないコピーを勧める理由

自分の作ったエクセルマクロには、クリップボード経由のコピーは皆無だ。 その理由はいたってシンプルだ。 クリップボードを使わない理由 自分がマクロでクリップボードを使わない理由はたった1つ。 「ほかの作 …

[Excel][VBA] ピボットテーブルの生成時にメモリ不足(リソース不足)が発生する問題と解決方法

エクセルで、ピボットテーブルを生成するマクロを使っていたのだけど、データが大きいとメモリ不足で動作しないことがあったため、改善した。 同じ問題で困っている人のために、自分の解決方法を記載しておくことに …