История изменений

Исправление pS, 21.06.15 21:28 (текущая версия) :

Вот тебе рыба:

Sub verb

Dim oCell As Object		' Текущая ячейка

	oCell = ThisComponent.getCurrentSelection()
	If oCell.getImplementationName() <> "ScCellObj" Then Exit Sub	' Это не ячейка - диапазон или объект
	Shell("eom file://" + oCell.Formula + ".png", 1)

End Sub

Основу взял с http://forumooo.ru/index.php/topic,2384.0.html.
Вставлять сам код, а затем кнопку, нужно через меню Сервис/Макросы/Управление макросами/LibreOffice Basic.... Надеюсь, разберёшся.

Исходная версия pS, 21.06.15 21:25:

Вот тебе рыба:

Sub verb

Dim oCell, oCellNext As Object	' Ячейки
Dim oSheet As Object		' Текущий лист
Dim nColumn%, nRow%		' Номер колонки и строки, в которых находится текущая ячейка

	oCell = ThisComponent.getCurrentSelection()
	If oCell.getImplementationName() <> "ScCellObj" Then Exit Sub	' Это не ячейка - диапазон или объект
	oSheet = oCell.getSpreadsheet()
	nColumn = oCell.getCellAddress().Column
	nRow = oCell.getCellAddress().Row
	oCellNext = oSheet.getCellByPosition(nColumn + 1, nRow)
	Shell("eom file://" + oCellNext.Formula + ".png", 1)

End Sub