OOoBasicでCalcのセルにコメントを付けたく、OOoBasic/Calc/annotationの例文をいれてみたのですが、セルに変化がありませんでした。
http://hermione.s41.xrea.com/pukiwiki/i ... annotation
ただ一度ターゲットのセルを右クリック"コメントを挿入"から入力状態、または何か入ってる状態、赤いマークが出ている状態だと書き込まれます。
マクロ上からコメントを書き込むにはほかに設定があるのでしょうか?
OS 10.6.8、XP Pro、OpenOfficeのバージョンは3.3.0、共に同じ状態です。3.0.0では動作するようです。
[解決] セルにコメントが付かない
-
- 記事: 337
- 登録日時: 6月 21, 2010, 6:52 am
Re: セルにコメントが付かない
masahiro_ さん こんにちは
・はにゃ? さんのサイトについては、はにゃ? さんの掲示板で質問された方がよかったと思いますが...
http://hermione.s41.xrea.com/pukiwiki/index.php?OOobbs3
・Windows版で同様の症状が再現されました。
・下記マクロを試してみて下さい。
・はにゃ? さんのサイトについては、はにゃ? さんの掲示板で質問された方がよかったと思いますが...
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
Re: セルにコメントが付かない
MoIshiharaさん
有り難うございます。赤いマークが表示され、コメントも書き込まれました。Mac版で確認しました。
>・はにゃ? さんのサイトについては、はにゃ? さんの掲示板で質問された方がよかったと思いますが...
何度も試したのですが、なぜか左のメニューのIDとパスが通らず、書き込み出来ませんでした。
有り難うございます。赤いマークが表示され、コメントも書き込まれました。Mac版で確認しました。
>・はにゃ? さんのサイトについては、はにゃ? さんの掲示板で質問された方がよかったと思いますが...
何度も試したのですが、なぜか左のメニューのIDとパスが通らず、書き込み出来ませんでした。
OOo 3.3.0, MAC OS 10.6.8