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

個別の書込み用関数とそれを利用した一括書込み用の関数を宣言します。これもまた他のデータと同じようにセルにどんどん書き込んで行くというになります。

Public Function SaveAll As Integer
    
    Dim i As Integer
    
    For i = 1 To UBound(Properties())
        If Not SaveById(Properties(i)) Then Exit For
    Next i
    Cells(PropertySheet, i + 3, 4).String = ""
    
    SaveAll = i - 1
    
End Function
 
Public Function SaveById(wkProperty As PropertyType) As Boolean
    
    Dim i As Integer
    Dim Id As Integer
    
    With wkProperty
        
        Id = ._Id + 2
        i = 4
        
        Cells(PropertySheet, Id, i).String = ._SheetName: i = i + 1
        
        Cells(PropertySheet, Id, i).Value = ._BeginDate: i = i + 1
        Cells(PropertySheet, Id, i).Value = ._CellUnit: i = i + 1
        Cells(PropertySheet, Id, i).Value = ._DrawColumns: i = i + 1
        Cells(PropertySheet, Id, i).Value = ._DrawRows: i = i + 1
        i = i + 1
        Cells(PropertySheet, Id, i).Value = ._LeftColumn: i = i + 1
        Cells(PropertySheet, Id, i).Value = ._TopRow: i = i + 1
        i = i + 1
        Cells(PropertySheet, Id, i).Value = ._AutoUpdate: i = i + 1
        i = i + 1
        Cells(PropertySheet, Id, i).Value = ._ChartBarWeight: i = i + 1
        Cells(PropertySheet, Id, i).Value = ._ChartBarPlanPos: i = i + 1
        Cells(PropertySheet, Id, i).Value = ._ChartBarActPos: i = i + 1
        Cells(PropertySheet, Id, i).Value = ._ChartBarType: i = i + 1
        i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._ChartBarPlanLineColor: i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._ChartBarPlanFillColor: i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._ChartBarActLineColor: i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._ChartBarActFillColor: i = i + 1
        i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._ChartHolidayColor: i = i + 1
        i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._DrawProgressLine: i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._ProgressLineWeight: i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._ProgressLineColor: i = i + 1
        i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._CategorizeType: i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._SortType: i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._PrintAllItems: i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._PrintNotCompletedItem: i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._InsertSpaceBetweenCategory: i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._PrintLabel: i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._CalculateStatus: i = i + 1
        Cells(PropertySheet, Id, i).Value = _
            ._CalculateTimesWithoutHoliday: i = i + 1
        i = i + 1
        Cells(PropertySheet, Id, i).Value = ._MileStoneWeight: i = i + 1
        i = i + 1
        Cells(PropertySheet, Id, i).Value = ._UseOptionalNote: i = i + 1
        
    End With
    
    SaveById = True
    
End Function
スポンサーサイト

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

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