[解決] セルにコメントが付かない

マクロの作成、スクリプトの作成、APIの使い方

[解決] セルにコメントが付かない

投稿記事by masahiro_ » 8月 23rd, 2011, 10:56 pm

OOoBasicでCalcのセルにコメントを付けたく、OOoBasic/Calc/annotationの例文をいれてみたのですが、セルに変化がありませんでした。

http://hermione.s41.xrea.com/pukiwiki/index.php?OOoBasic%2FCalc%2Fannotation

ただ一度ターゲットのセルを右クリック"コメントを挿入"から入力状態、または何か入ってる状態、赤いマークが出ている状態だと書き込まれます。
マクロ上からコメントを書き込むにはほかに設定があるのでしょうか?

OS 10.6.8、XP Pro、OpenOfficeのバージョンは3.3.0、共に同じ状態です。3.0.0では動作するようです。
最後に編集したユーザー masahiro_ [ 8月 27th, 2011, 3:19 pm ], 累計 3 回
OOo 3.3.0, MAC OS 10.6.8
masahiro_
 
記事: 2
登録日時: 8月 23rd, 2011, 10:45 pm

Re: セルにコメントが付かない

投稿記事by MoIshihara » 8月 23rd, 2011, 11:54 pm

masahiro_ さん こんにちは

・はにゃ? さんのサイトについては、はにゃ? さんの掲示板で質問された方がよかったと思いますが...
http://hermione.s41.xrea.com/pukiwiki/index.php?OOobbs3

・Windows版で同様の症状が再現されました。
・下記マクロを試してみて下さい。
コード: 全て選択   展開ビュー折りたたみビュー
Sub Sample
   Dim oDoc As Object
   oDoc = ThisComponent
   if not oDoc.supportsService("com.sun.star.sheet.SpreadsheetDocument") then Exit Sub
   Dim oCell As Object
   oCell = oDoc.CurrentController.ActiveSheet.getCellByPosition(1, 1)
   createAnnotation(oCell, "Sample")
End Sub

Sub createAnnotation(oCell As Object, sText As String)
   if not oCell.supportsService("com.sun.star.sheet.SheetCell") then Exit Sub
   oCell.Spreadsheet.Annotations.insertNew(oCell.CellAddress, sText)
End Sub
MoIshihara
 
記事: 337
登録日時: 6月 21st, 2010, 6:52 am

Re: セルにコメントが付かない

投稿記事by masahiro_ » 8月 24th, 2011, 2:09 am

MoIshiharaさん

有り難うございます。赤いマークが表示され、コメントも書き込まれました。Mac版で確認しました。

>・はにゃ? さんのサイトについては、はにゃ? さんの掲示板で質問された方がよかったと思いますが...

何度も試したのですが、なぜか左のメニューのIDとパスが通らず、書き込み出来ませんでした。
OOo 3.3.0, MAC OS 10.6.8
masahiro_
 
記事: 2
登録日時: 8月 23rd, 2011, 10:45 pm


Return to マクロと UNO API

オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[1人]