Apache OpenOffice Community Forum

Code: Select all

Sub SwitchAdjustHeightEnabled
  ThisComponent.IsAdjustHeightEnabled = NOT ThisComponent.IsAdjustHeightEnabled
End Sub

Code: Select all

Sub LoadCalcDocumentWithoutAdjustHeight
  sURL = GetFileToOpen(Array("ODF Spreadsheet (*.ods)", "*.ods", "All", "*.*"))
  if sURL <> "" then LoadDocumentIfNotLoaded(sURL)
End Sub


Function LoadDocumentIfNotLoaded(sURL)
  doc = nothing
  components = StarDesktop.getComponents().createEnumeration()
  do while components.hasMoreElements()
    component = components.nextElement()
    if hasunointerfaces(component, "com.sun.star.lang.XServiceInfo") then
      if component.getURL() = sURL then
        doc = component
        exit do
      end if
    end if
  Loop
  if isnull(doc) then
    zLoadCalcDocumentWithoutAdjustHeightAsync(sURL)
  else
    ' if found, put it front
    doc.getCurrentController().getFrame().getContainerWindow().toFront()
  end if
End Function


Sub zLoadCalcDocumentWithoutAdjustHeightAsync(sURL As String)
  CreateUnoService("com.sun.star.awt.AsyncCallback").addCallback(_
    CreateUnoListener("zLoadCalcDocumentWithoutAdjustHeightAsync_", "com.sun.star.awt.XCallback"), _
    sURL)
End Sub


Sub zLoadCalcDocumentWithoutAdjustHeightAsync_notify(data)
  zLoadCalcDocumentWithProperties(data)
End Sub


' Load Calc document (OpenDocument Spreadsheet) without adjusting row height
' @param sURL          URL to load a Calc document, calc8 only
' @param bEnableAfter  enable adjusting row height after loading finished
Function zLoadCalcDocumentWithProperties(sURL As String, optional bEnableAfter As Boolean) As Variant
  if ismissing(bEnableAfter) then bEnableAfter = False
  ' create new frame to load the file
  frame = StarDesktop.findFrame("_blank", com.sun.star.frame.FrameSearchFlag.CREATE)
  ' set filter options
  Dim args(1) As new com.sun.star.beans.PropertyValue
  args(0).Name = "URL"
  args(0).Value = sURL
  args(1).Name = "FilterName"
  args(1).Value = "calc8"
  ' instantiate new document component
  doc = CreateUnoService("com.sun.star.sheet.SpreadsheetDocument")
  ' disable adjusting height after loading the document
  doc.IsAdjustHeightEnabled = False
  ' load document
  doc.load(args)
  ' setup
  controller = doc.createViewController("Default", args, frame)
  controller.attachModel(doc)
  doc.connectController(controller)
  frame.setComponent(controller.ComponentWindow, controller)
  controller.attachFrame(frame)
  doc.setCurrentController(controller)
  frame.getContainerWindow().setVisible(True) ' show document window
  if bEnableAfter then doc.IsAdjustHeightEnabled = True
  zLoadCalcDocumentWithProperties = doc
End Function


Function GetFileToOpen(optional aFilters as variant) As String
  if ismissing(aFilters) then aFilters = array()
  sURL = ""
  oFilePicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
  oFilePicker.initialize(Array(com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE))
  'oFilePicker.setDisplayDirectory("")
  for i = 0 to ubound(aFilters) step 2
    oFilePicker.appendFilter(aFilters(i), aFilters(i+1))
  next
  if oFilePicker.execute() = 1 then
    sFiles = oFilePicker.getFiles()
    sURL = sFiles(0)
  end if
  GetFileToOpen = sURL
End Function

Code: Select all

  Dim args(2) As new com.sun.star.beans.PropertyValue
  args(0).Name = "URL"
  args(0).Value = sURL
  args(1).Name = "FilterName"
  args(1).Value = "calc8"
  args(2).Name = "MacroExecutionMode"
  args(2).Value = 4