VertOrientRelation

Author: KlausBlum

extension/OOoLilyPond/OOoLilyPond.xba

@@ -771,8 +771,10 @@ Sub InsertOOoLilyPondObjectViaClipboard (sIdentifier As String, sNumber As Strin
 		oGraphic.HoriOrient = com.sun.star.text.HoriOrientation.NONE
 		if iAnchor = com.sun.star.text.TextContentAnchorType.AT_CHARACTER Then
 			oGraphic.HoriOrientRelation = com.sun.star.text.RelOrientation.CHAR
+			oGraphic.VertOrientRelation = com.sun.star.text.RelOrientation.CHAR
 		Else
 			oGraphic.HoriOrientRelation = com.sun.star.text.RelOrientation.PRINT_AREA
+			oGraphic.HoriOrientRelation = com.sun.star.text.RelOrientation.PRINT_AREA
 		End If
 
 		if bShapeIsSelected And (iAnchor = iOriginalAnchor) And Not IsNull (oShapePosition) Then oGraphic.position = oShapePosition
@@ -869,8 +871,10 @@ Sub InsertOOoLilyPondObject (sIdentifier As String, sNumber As String, sAddition
 		oGraphic.HoriOrient = com.sun.star.text.HoriOrientation.NONE
 		if iAnchor = com.sun.star.text.TextContentAnchorType.AT_CHARACTER Then
 			oGraphic.HoriOrientRelation = com.sun.star.text.RelOrientation.CHAR
+			oGraphic.VertOrientRelation = com.sun.star.text.RelOrientation.CHAR
 		Else
 			oGraphic.HoriOrientRelation = com.sun.star.text.RelOrientation.PRINT_AREA
+			oGraphic.HoriOrientRelation = com.sun.star.text.RelOrientation.PRINT_AREA
 		End If
 
 	Else 'We are in Impress or Draw