openoffice.org BASIC 또는 LibreOfffice.org에서 이미지를 이동하는 방법

Question

VBA에서 Shape.IncrementLeft 및 Shape.IncrementTop을 사용하여 동영상을 이동 한 후 openoffice.org BASIC에서 그림을 이동하고 싶습니다. "그림 이동"및 "openoffice.org"또는 "BASIC 열기"또는 "OOo BASIC"과 같은 키워드를 사용하여 인터넷을 검색 한 후에 대답을 찾지 못했습니다.

나는 자바로 사진을 이동하는 방법을 발견, C++, 안드로이드,하지만 OpenOffice.org BASIC, 에서 나는 https://wiki.openoffice.org/wiki/Documentation/BASIC_Guide http://www.pitonyak.org/OOME_3_0.pdf 나는 또한 리브레 오피스를 통해 답을 찾기 위해 노력했지만 않고이 가이드 물마루 읽을 수 없습니다 성공. 매크로를 기록하고, 그림을 삽입하고, 마우스로 이동하고 매크로를 중지하려고했습니다. 코드를 살펴볼 때 내 질문에 대한 답변은 운영자와 UNO 방법 중 하나에 연결됩니다. com.sun.star.awt.UnoControlImageControlModel 서비스의 속성 com.sun.star.drawing.GraphicObjectShape BorderBottom BorderLeft BorderRight BorderTop oPoint = oShape.Position 하는 getPosition() 로 setPosition (포인트) 는하지만 명확한 답변을 찾을 수없는 내가 그들을 결합하는 방법을 모른다 이미지를 만들거나 (또는 ​​삽입 된 모양 일 수도 있음) 이동하십시오.

아무도 답변을 찾는 방법을 안내해 줄 수 있습니까?

Answer 1

우선 : https://wiki.openoffice.org/wiki/Extensions_development_basic이 좋은 출발점입니다. 특히 XRAY 도구는 매우 유용합니다.

다음 코드이 (가) Calc를 워크 시트에 선택한 이미지의 위치 변경 :

Sub Test 

dim aNewPosition as new com.sun.star.awt.Point 

oDoc = thisComponent 
oSelection = oDoc.CurrentSelection(0) 

if oSelection.supportsService("com.sun.star.drawing.Shape") then 
    aPosition = oSelection.Position 
    x = aPosition.X 
    y = aPosition.Y 
    aNewPosition.X = x + 100 
    aNewPosition.Y = y + 100 
    oSelection.setPosition(aNewPosition) 
endif 

End Sub 

인사말을

악셀