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

マクロの作成、スクリプトの作成、APIの使い方
返信する
masahiro_
記事: 2
登録日時: 8月 23, 2011, 10:45 pm

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

投稿記事 by masahiro_ »

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では動作するようです。
最後に編集したユーザー masahiro_ [ 8月 27, 2011, 3:19 pm ], 累計 3 回
OOo 3.3.0, MAC OS 10.6.8
MoIshihara
記事: 337
登録日時: 6月 21, 2010, 6:52 am

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

投稿記事 by MoIshihara »

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
masahiro_
記事: 2
登録日時: 8月 23, 2011, 10:45 pm

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

投稿記事 by masahiro_ »

MoIshiharaさん

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

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

何度も試したのですが、なぜか左のメニューのIDとパスが通らず、書き込み出来ませんでした。
OOo 3.3.0, MAC OS 10.6.8
返信する

“マクロと UNO API”に戻る