OpenOffice.org Basicでガントチャート
OpenOffice.org Basicを使ってガントチャート作成用マクロ ガントチャートforOOoを開発する手順を紹介していきます。
スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
データ交換、コピー「工程」

読込んだデータを交換したりコピーする関数を定義します。

これまでと同様に「mdlSchedule」に追記していきます。

mdlSchedule
Public Sub Swap(Data1 As ScheduleType, Data2 As ScheduleType) '---(1)
    
    Dim wk As ScheduleType
    
    Copy(Data1, wk)
    Copy(Data2, Data1)
    Copy(wk, Data2)
    
End Sub

Public Sub Copy(Src As ScheduleType, Dst As ScheduleType) '---(2)
    
    With Src
        'Dst._Id = ._Id
        Dst._Name = ._Name
        Dst._ItemId = ._ItemId
        Dst._PlanBegin = ._PlanBegin
        Dst._PlanEnd = ._PlanEnd
        Dst._PlanColor = ._PlanColor
        Dst._ActBegin = ._ActBegin
        Dst._ActEnd = ._ActEnd
        Dst._ActColor = ._ActColor
        Dst._LineType = ._LineType
        Dst._Weight = ._Weight
    End With
    
End Sub

内容について説明します。

  1. 後に作るコピー用関数を使って、データ交換処理を行います。
  2. コピー用関数を定義します。
スポンサーサイト
コメント
この記事へのコメント
コメントを投稿する
URL:
Comment:
Pass:
秘密: 管理者にだけ表示を許可する
 
トラックバック
この記事のトラックバックURL
http://shinob.blog42.fc2.com/tb.php/30-ddb7a5db
この記事にトラックバックする(FC2ブログユーザー)
この記事へのトラックバック
COPYRIGHT(C) 2004 POWERD BY FC2 ALLRIGHT RESERVED.
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。