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

データの追加処理を簡便にするため、Add関数を作ります。また、ついでにデータの総数を取得する処理も簡便にするためのCount関数を作成します。

mdlSchedule

Public Function Count As Integer
    
    Count = UBound(Schedules())
    
End Function
 
Public Function Add(ItemId As Integer) As Integer
    
    Dim i As Integer
    i = Count + 1
    
    Redim Preserve Schedules(i)
    With Schedules(i)
        ._Id = i
        ._Name = NewScheduleName & i
        ._ItemId = ItemId
        ._PlanColor = -1
        ._ActColor = -1
        ._LineType = -1
        ._Weight = 1
    End With
    
    Add = i
    
End Function

Add関数内では新しく追加したデータに初期値を設定します。IDは連番なので、そのまま番号を入力しその他のパラメータは始めから入っている方がふさわしい値を入れます。
また、工程には項目のIDが必須となりますので、この関数を呼び出す時の引数に項目のIDを入れます。
名称は新しい名称用の変数を宣言し、mdlMain.Initialize関数内で宣言しておく事とします。

mdlMainのInitialize関数に追記

NewScheduleName = "新規工程"
スポンサーサイト

テーマ:OpenOffice.org - ジャンル:コンピュータ

コメント
この記事へのコメント
コメントを投稿する
URL:
Comment:
Pass:
秘密: 管理者にだけ表示を許可する
 
トラックバック
この記事のトラックバックURL
http://shinob.blog42.fc2.com/tb.php/65-9acfb4e4
この記事にトラックバックする(FC2ブログユーザー)
この記事へのトラックバック
COPYRIGHT(C) 2004 POWERD BY FC2 ALLRIGHT RESERVED.
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。