Reply

Run Time Error While adding a new dimension

[ Edited ]

 

HI,

    I am getting a runtime error while addind a new dimension to a  sheet.

Please help I have attached a image with this thread.

this is my code.

Set objDimensions = objDoc.Sheets(1).Dimensions

Set objDimension = objDimensions.AddDistanceBetweenObjects(objDVLinePrevious.Reference, X_Previous, Y_Previous, _

                           0#, False, objDVLineNext.Reference, X_Next, Y_Next, 0#, False _

                           )

   objDimension.MeasurementAxisDirection = True

   objDimension.TrackDistance = 0.18

   'objDim.BreakPosition = igDimBreakCenter

   'objDim.BreakDistance = 0.1

   Set objDimension = Nothing

 

 

Posted by: Pritam Dulam
Post date: 12/3/2009 5:57:45 PM