Microsoft Office Excel

エクセルのマクロで図形を操作する（４） – オートシェイプを消去する

ホチキス先生 — Sat, 25 Dec 2010 19:07:00 GMT

ではエクセルのシートに作ったオートシェイプを消去するにはどうすればいいだろうか。オートシェイプを削除するには、deleteメソッドが使えるはずだ。試しに次の2つのマクロを作ってみよう。

----------------------------------------------------------------

Sub smaile()
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 10, 20, 100, 100
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 120, 20, 100, 100
End Sub

----------------------------------------------------------------

Sub delete()
Sheet1.Shapes(1).delete
Sheet1.Shapes(2).delete
End Sub

----------------------------------------------------------------

最初のマクロでは、スマイルのオートシェイプを2つ作っている。これら2つのオートシェイプはそれぞれShapes(1)とShapes(2)という番号で管理されている。そして次のマクロでは、そのShapes(1)とShapes(2)に対して消去のDeleteメソッドを実行している。だが残念ながらこのマクロは、消去するときにエラーになる。ひとつめのシェイプを消去した後「指定したコレクションに対するインデックスが境界を越えています。」というメッセージが出るはずだ。なぜかといえば、Shapes(1)を消去したときに、自動的にShapes(2)がShapes(1)になってしまうからだ。そこで消去する順番は、まず数字の大きいShapes(2)を消去し、その次にShapes(1)を消去する、というようにすればいい。次のマクロは正しく動くだろう。

----------------------------------------------------------------

Sub smaile()
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 10, 20, 100, 100
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 120, 20, 100, 100
End Sub

----------------------------------------------------------------

Sub delete()
Sheet1.Shapes(2).delete
Sheet1.Shapes(1).delete
End Sub

----------------------------------------------------------------

あるいは次のように、Shapes(1)を二回消去する、というようにしてもうまく消去できる。

----------------------------------------------------------------

Sub smaile()
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 10, 20, 100, 100
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 120, 20, 100, 100
End Sub

----------------------------------------------------------------

Sub delete()
Sheet1.Shapes(1).delete
Sheet1.Shapes(1).delete
End Sub

----------------------------------------------------------------

Microsoft TechEd 2010 レポート - Day 2 - 3 - T4-304「Microsoft BIを支えるReporting Services & PowerPivot～松本美穂のすぐに使えるBIシステム構築の技～」

ホチキス先生 — Sat, 28 Aug 2010 19:58:00 GMT

最も最初のバージョンからMicrosoft SQL Serverにかかわっており、名著「SQL Server 2000でいってみよう」など多くの技術書の著者松本美穂女史によるセッション。

PowerPivot for Excelは、サーバー側の作りこみが不要な点がパワフル。インメモリアーキテクチャで高速なデータ処理が実現できる。64ビットCPUのパワーを十分に利用することができる。またExcelのデータ上限100万件を超えるデータも対応している。

PowerPivotの概要が説明されたあと、実際にデモが行われた。画面に表示されたExcelのブックには、なんと一千万件のデータが格納されている。さらにこのテーブルをスクロールするのも高速で、まったくストレスなく表示される。これはたいへんな驚きだ。またパワーピボットの表示もすごく早く、グラフの追加や描画の更新もとても速い。このようなパフォーマンスを得られるのは、すべてインメモリで実行しているからである。したがってコンピュータのメモリが小さいと、このPowerPivotのパフォーマンスの恩恵を得ることはできない。

PowerPivotで大量のデータを分析するとき、ExcelのPowerPivot自体は高いパフォーマンスで動作しても、データの更新には時間がかかるだろう。SQL Serverへの負荷もある。そこでPowerPivotを使う場合は、分析に必要なデータだけを選んで取ってくる設計をしなければならない。またデータベースの設計者としては、このようにユーザーがExcelで大量のデータを取れる時代になったことから、データベースのセキュリティにはこれまで以上に配慮しなければならないだろう。

PowerPivot for SharePoint 2010では、分析レポートの共有とセキュアなデータ格納、バックグラウンドでのデータ更新のバッチ処理、Excel ServiceによるWebブラウザベースの共有、などがあげられる。PowerPivot for SharePointをインストールすると、テンプレートとしてPowerPivot Siteができる。管理はPowerPivot管理ダッシュボードで行う。

SQL Serverの機能拡張はいろいろあるが、特にReporting Serviceは強力に進化している。特にSQL Server 2008 R2からは、Bingマップ連携、データバー、インジケーターなどデザイン面の拡張など大きく拡張された。このReporting ServiceによるBIシステムでは、共有データソース、共有データセット、共有レポートパーツを利用してレポート作成時間を短縮することができる。またレポートキャッシュまたはクエリキャッシュ、キャッシュの更新計画機能などキャッシュ機能を活用する。

Microsoft TechEd 2010 Japan 公式サイト
http://www.microsoft.com/japan/teched/2010/

エクセルのマクロで図形を操作する（３） - オートシェイプに名前をつける

ホチキス先生 — Mon, 19 Jul 2010 10:07:00 GMT

エクセルのシート上に作成したオートシェイプは番号がついているが、番号ではなく、オートシェイプに名前を付けて区別することもできる。例えばこんな具合だ。

Sub smaile()
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 10, 20, 100, 100
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 120, 20, 100, 100
ActiveSheet.Shapes(1).Name = "taro"
ActiveSheet.Shapes(2).Name = "hanako"
Sheet1.Shapes("taro").IncrementRotation (-20)
Sheet1.Shapes("hanako").IncrementRotation (20)
Sheet1.Shapes("taro").Adjustments.Item(1) = 0.5
Sheet1.Shapes("hanako").Width = 160
Sheet1.Shapes("hanako").Height = 160
End Sub

(Fig.1 オートシェイプを2つ作成し名前を付けて角度や変形、大きさを変えた)

ここでは作成した2つのオートシェイプに「taro」と「hanako」という名前をつけている。「taro」に操作をするときはShapes("taro")、「hanako」に操作をするときはShapes("hanako")と記述して区別できる。ここでは「taro」を左に20度（つまり右に-20度）回転、変形を0.5、「hanako」は右に20度回転、幅と高さを160に拡大している。

エクセルのマクロで図形を操作する（２） - 作成したオートシェイプには番号がついている

ホチキス先生 — Mon, 19 Jul 2010 10:05:00 GMT

エクセルのシート上に作成されたオートシェイプは連番で管理されている。たとえば次のようなマクロを作って実行する。結果はこんな具合だ。

Sub smaile()
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 10, 20, 100, 100
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 120, 20, 100, 100
Sheet1.Shapes(1).IncrementRotation (-10)
Sheet1.Shapes(2).IncrementRotation (10)
Sheet1.Shapes(1).Adjustments.Item(1) = 0.5
End Sub

(Fig.1 マクロによって作成した2つのオートシェイプ)

ここでは2つのオートシェイプを作っているが、それぞれ作成された順番でShapes(1)、Shapes(2)という連番で管理されている。最初に作成したオートシェイプは図の左側のもので、こちらはShapes(1)、次に作成したオートシェイプが右側で、Shapes(2)である。Shapes(1)を左に10度（つまりマイナス10度）回転させ、Shapes(2)を右に10度回転させる、そして右側のShapes(1)については、Adjustment.Itemの値を変えて変形している。

エクセルのマクロで図形を操作する（１） - マクロでオートシェイプを作成する

ホチキス先生 — Mon, 19 Jul 2010 10:01:00 GMT

あることを思い立ち、エクセルのマクロで作ってみたものがある。そのため、図形を操作するマクロについて調べている。

エクセルのマクロは習得が簡単だ。その理由のひとつに「マクロの記録」がある。マクロで自動化したい操作を「マクロの記録」を実行してマウスやキーボードで操作すると、その操作がマクロとなって記録される。これはいわばユーザーの操作を記録しているわけで、このマクロを分析し加工すれば思いのままに操作を自動化できる。

例えばMicrosoft Excel 2003でオートシェイプを作り、形を変化させ、回転する、という操作をマクロに記録すると、次のようなマクロができる。

------------------------------------------------------------------------------------------------------------------

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 7/19/2010? ユーザー名 :
'

'
??? ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 124.5, 87.75, 126.75, 53.25).Select
??? Selection.ShapeRange.Adjustments.Item(1) = 0.5
??? Selection.ShapeRange.IncrementRotation 35.28
End Sub

------------------------------------------------------------------------------------------------------------------

ActiveSheet.Shapes.AddShape()によってシートにオートシェイプが作られる。()の中には5つの引数があり、最初のmsoShapeRoundedRectangleがオートシェイプの種類、続く4つの数字はオートシェイプの大きさと位置を決めている。これらの数値を変更したマクロを作り実行すると、引数は「オートシェイプの種類、横の位置、縦の位置、横の大きさ、縦の大きさ」であることがわかる。

Selection.ShapeRange.Adjustments.Item()はオートシェイプの変形だ。オートシェイプの中には黄色の菱形アンカーポイントを持つものがあり、変形することができる。

Selection.ShapeRange.IncrementRotationはオートシェイプの回転であり、右回りの回転角度で指定する。右回りに90度回転させるなら値は「90」だ。

ここで自動的に作成されたマクロでオートシェイプを作ることができるが、より実際的にオートシェイプを操作するためには、次のように書くこともできる。

●オートシェイプを作成する

ActiveSheet.Shapes.AddShape msoShapeRoundedRectangle, 10, 20, 50, 60

●作成したオートシェイプを右に5度回転させる

Sheet1.Shapes(1).IncrementRotation (5)

●作成したオートシェイプの横の大きさを100に変える

Sheet1.Shapes(1).Width = 100

●作成したオートシェイプの塗りを半透明化する

Sheet1.Shapes(1).Fill.Transparency = 0.5

●作成したオートシェイプの変形を0.5にする

Sheet1.Shapes(4).Adjustments.Item(1) = 0.5