97/2000/2002/2003/2007)Excelをガントチャートなどの進行管理に使っているユーザーも多いことでしょう。ワークシートを利用して、何日から何日までといった期間を表すには、セルを塗りつぶしたり、オートシェイプの矢印を使ったりします。ここでは、オートシェイプの四角形を横に配置するマクロを考えてみましょう。オートシェイプの四角形を挿入するには次のようにします。Sub実行すると、A列の2行目あたりに赤い四角形が挿入されます。Height」を表します。四角形をセルB2からセルE2に合わせて配置するのなら、次のように考えます。このうち、Left、Top、Heightは簡単です。Left:Range("B2").LeftTop:Range("B2").TopWidth:Height:Range("B2").HeightWidthは計算によって求めなければなりません。セル(Range)には右端を表すプロパティがありません。そこで「セルE2の右端」は、ひとつ右の「セルF2の左端」を取得します。Widthは幅ですから、「セルF2の左端」-「セルB2の左端」となります。Subもう少しガントチャート風に考えてみましょう。今、ワークシートのB列から右方向に「1日」「2日」と日付が入力されているとします。上の「セルB2からセルE2」というのは「1日から4日間」を表しています。セルB2が"始まり"の日で、セル範囲B2:E2が"期間"です。Widthが「始まりの日+期間+1の左端」ではない点に留意してください。次のコードは、始まりの日と期間をInputBoxで受け取って四角形を挿入します。Subあとは、塗りつぶしの色を変えたり、挿入する行を指定するなど応用しだいです。利用者の皆様にお知らせです。WindowsVBScript教えてください。剰余演算ハイパーリンクについて教えて下さい。Corporationの米国及びその他の国における登録商標です。その他システム名、プログラム名などは、一般に各社の登録商標です。