SrGuidesCreated.Add ActiveLayer.CreateGuide(ActivePage.LeftX, ActivePage.TopY + dblOffsetDocUnits, ActivePage.RightX, ActivePage.TopY + dblOffsetDocUnits) '- Undo Group End -įunction create_guidelines_offset_from_page( ByVal Offset_Dist As Double, ByVal Offset_Units As cdrUnit) As ShapeRangeĭim dblOffsetDocUnits As Double Dim srGuidesCreated As New ShapeRangeĭblOffsetDocUnits = ActiveDocument.ToUnits(Offset_Dist, Offset_Units) Y = ActivePage.SizeHeight - ActivePage.SizeHeight + n X = ActivePage.SizeWidth - ActivePage.SizeWidth + n '- Undo Group Start -ĪctiveDocument.BeginCommandGroup "Undo action description"ĪctivePage.Layers("Guides").CreateGuideAngle x, y, 0 ' HorizontalĪctivePage.Layers("Guides").CreateGuideAngle x, y, 90 ' Vertical
I am trying to create guideline with below mentioned code on outside of the page on all 4 side of 0.5mm exactly but unable to make it complete please help meĪctiveDocument.Unit = cdrMillimeter 'change to units desired
0 kommentar(er)
