Public Sub setPasteWithPatternParameters( _
   ByVal offsetNumber As Integer, _
   ByVal offsetX As Double, _
   ByVal offsetY As Double, _
   ByVal offsetZ As Double, _
   ByVal offsetAngle As Double, _
   ByVal offsetFlip As Integer _
)