Вставка изображения в calc

[dimmon777]

День добрый!
Подскажите макрос вставки изображения, которое находится C:/1.jpg, в ячейку A1. 

[JohnSUN]

Этот?

[dimmon777]

u]Этот?[/u]

Да, спасибо!
Еще подскажите,  как изображение позади текста разместить

[JohnSUN]

Код Выделить Развернуть

oSahe.LayerID = 1 ' Задвинуть за текст
oSahe.LayerID = 0 ' Вернуть обратно

[dimmon777]

Код Выделить Развернуть

oSahe.LayerID = 1 ' Задвинуть за текст
oSahe.LayerID = 0 ' Вернуть обратно

Огромнейшее спасибо, очень выручили!!!

[dimmon777]

JohnSUN

Один вопрос назрел: При выводе на печать рисунок не отображается(. Нужно в свойствах листа указать отображать рисунки/объекты. Как это реализовать программно В книгах по-умолчанию данный параметр отключен

[rami]

Замените на ваше название стиля вместо Default:

Код Выделить Развернуть

ThisComponent.StyleFamilies.getByName("PageStyles").getByName("Default").PrintObjects=true

[dimmon777]

Замените на ваше название стиля вместо Default:
Код:

ThisComponent.StyleFamilies.getByName("PageStyles").getByName().PrintObjects=true

Немного не помогло, хз какой там у листа наименование стиля, пробовал "Default", и "стандартный" и т.д.
Помог след код

Код Выделить Развернуть

s = ThisComponent.CurrentController.getActiveSheet().PageStyle
oStyle = ThisComponent.StyleFamilies.getByName("PageStyles").getByName(s)
oStyle.PrintObjects=true
rami за наводку спасибо!

[dimmon777]

Доработал "для себя" (по сути убрал всё лишнее), код макроса вставляющего в ячейку изображение по ссылке. За основу взята подсказка

JohnSUN

  http://forumooo.ru/index.php/topic,2362.msg14432.html#msg14432

Код Выделить Развернуть

Sub Main
oDoc = ThisComponent
oSheet = oDoc.CurrentController.ActiveSheet
SD = oSheet.createSearchDescriptor()
SD.SearchRegularExpression = TRUE
SD.SearchCaseSensitive = FALSE
SD.SearchString = "jpg|bmp"
Results = oSheet.findAll(SD)
If isNull(Results) then Exit Sub

Dim Props(0) as new com.sun.star.beans.PropertyValue
Props(0).Name= "URL"
Dim Size as new com.sun.star.awt.Size
oProvider = createUnoService("com.sun.star.graphic.GraphicProvider")
Cell = Results(k)
s = ConvertToURL(Cell.String)
oShape = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
oSheet.DrawPage.add(oShape)
Props(0).Value = s
oShape.Graphic = oProvider.queryGraphic(Props())
oShape.Anchor = Cell
Cell.String=""
Size.Width = 6000' размер,ширина
Size.Height = 6000' размер,высота
oShape.setSize(Size)
oShape.LayerID = 1
s = ThisComponent.CurrentController.getActiveSheet().PageStyle
oStyle = ThisComponent.StyleFamilies.getByName("PageStyles").getByName(s)
oStyle.PrintObjects=true
End Sub

[rami]

Немного не помогло, хз какой там у листа наименование стиля, пробовал "Default", и "стандартный" и т.д.

Посмотрите на вашу картинку в предыдущем ответе, там написано: Стиль страницы: PageStyle_Sheet1
Кроме того, стиль страницы показывается в строке состояния. Но и ваше решение хорошо.

[dimmon777]

Посмотрите на вашу картинку в предыдущем ответе, там написано: Стиль страницы: PageStyle_Sheet1

 
Отчеты генерирует программа, возможно название стилей будет меняться