戻る    次へ

EagleEXCEL版ガントチャート作成ツールのアイコン画像VBA Eagle編

【2】予定線のオートシェイプの書式を読み取る

ユーザに図形の設定シートで設定したもらった予定線と同じオートシェイプの書式で予定線を 描くには、オートシェイプの規定値を変更することで可能としました。ここでもEXCEL2007問題が 発生して代替処理としてコピーすることにしました。
  If Val(Application.Version) < 12 Then
      '規定値を更新
    Worksheets("図形").Shapes("稲妻線").SetShapesDefaultProperties

    With ActiveSheet.Shapes.AddLine(Bx, By, Ex, Ey)
      .name = name
    End With
  Else    'excel 2007 対応
    Worksheets("図形").Shapes("稲妻線").Copy
    ActiveSheet.Paste
    With Selection
      .name = name
      .Left = Bx
      .Top = By
      .Height = Ey - By
      .Width = Ex - Bx
    End With

  戻る    次へ

掲載情報

2009.1.20にフリーソフトであるGriffinEXCELテーブルとVBA2htmlが紹介された本が発売されました。この本のP99にHTML関連として紹介されています。