3流プログラマのメモ書き

元開発職→社内SE→派遣で営業支援→開発戻り浦島太郎状態の三流プログラマのIT技術メモ書き。 このメモが忘れっぽい自分とググってきた技術者の役に立ってくれれば幸いです。

2010-07-01から1ヶ月間の記事一覧

ショートカット作成時に「 - ショートカット」をつけないようにする

Windows7だとドラッグアンドドロップでショートカットを作ると「a.exe - ショートカット」という名前になります。 XP以前だと「a.exeへのショートカット」という名前になってましたね。 この末尾の「 - ショートカット」や「へのショートカット」を不可させない方…

(OpenOffice Basic)Calcで枠線を引く方法

OpenOffice Basic で Calc のセルの枠線(罫線)を引く方法です。 先にBorderLineオブジェクトを作ってから、セルにセットするという流れになるようです。 Dim oSheet as object oSheet = ThisComponent.Sheets.getByName("Sheet1") Dim oCell as object oCell…

(OpenOffice Basic)Calcでセルのフォントの設定を変更する

OpenOffice Basic で Calc のセルフォントの設定を変更する方法です。 Dim oSheet as object oSheet = ThisComponent.Sheets.getByName("Sheet1") Dim oCell as object oCell = oSheet.getCellRangeByName("C1") oCell.setString("あああ") '日本語フォント…

(OpenOffice Basic)Calcでセルテキストの配置を変える

OpenOffice Calc で セルの書式設定 → 配置タブ でやっている設定を OpenOffice Basic で実現する方法です。 とりあえず下記にサンプルを載せますが、セルオブジェクトのOrientationで細かく設定できるようです。 Dim oSheet as object oSheet = ThisCompone…

(OpenOffice Basic)自身のファイルパスを表示する

マクロを動かしている自身のファイルパスをとるときは下記のようにできます。(参考先そのままですが...) Sub Macro01 Dim oUrl As String 'oUrl = StarDesktop.CurrentComponent.getURL oUrl = ThisComponent.getURL MsgBox oUrl MsgBox ConvertFromUrl(oUrl…

(OpenOffice Basic)テキストファイルの書き込み

OpenOffice Basicを使ってのテキストファイルへのデータ出力方法です。 サンプルそのままですが、この辺はVBAと対して変わらないようですね。 Dim FileNo As Integer Dim CurrentLine As String Dim Filename As String Filename = "c:\data.txt" ' ファイル…

(OpenOffice Basic)ファイル保存ダイアログを表示する

ファイルの保存ダイアログを表示するには下記のようなコードにすればいいようです。 Dim oFilePicker As Object Dim nDlgResult As Integer Dim sFiles() As String Dim sFilename As String 'dialogs.FilePicker でダイアログが使える oFilePicker = create…

(OpenOffice Basic)Calcでセルの取得と値の取得・設定

まず、セルを取得(アクセス)する方法です。 VBAだと下記のようになります。 '単一セルをセル名にて指定するにはこうなります。 Dim oCell As Object Cell = ThisComponent.Sheets("Sheet1").getCellRangeByName("C1") '複数セルをセル名で指定するにはこうな…

(OpenOffice Basic)現在選択しているセルの位置を得る

OpenOffice Basic(3.2)でユーザーが現在選択しているセル(カレントセル)の位置を得る方法です。 Dim oActiveCell As Object '現在選択中のセルを取得 oActiveCell = ThisComponent.CurrentSelection MsgBox "シート:" & oActiveCell.CellAddress.Sheet & _ "…

(OpenOffice Basic)Calcシートの保護

OpenOffice Basic(3.2) で Calc のシートの保護をかける方法です。 Dim oSheet As Object oSheet = ThisComponent.Sheets(0) 'シートの保護 oSheet.Protect("passwd") 'パスワード passwd でシート保護 'シートの保護の解除 oSheet.Unprotect ("passwd") 参…

(OpenOffice Basic)Calcシートの選択

OpenOffice 3.2 のマクロを触る機会ができました。 OpenOffice は Basic のほかに、PythonやJavaScript,Bean Shellも使えるようですが、OpenOffice Basic が一番情報があるので、それを使うことにしました。 しばらくは OpenOffice マクロの話となります。 …