Previous Document Next Document

Object Model Reference : Classes : E : EffectLens : Properties : EffectLens.UseViewPoint


EffectLens.UseViewPoint

Property UseViewPoint As Boolean

Description

Member of EffectLens

The UseViewPoint property returns or specifies whether a viewpoint is used in a lens.

VBA example

The following VBA example creates a magnified view of a certain region of the drawing.

Sub Test()
 Dim sText As Shape, sLens As Shape
 Set sText = ActiveLayer.CreateArtisticText(0, 0, "Some Text")
 sText.Fill.UniformColor.RGBAssign 255, 0, 0
 Set sLens = ActiveLayer.CreateEllipse2(1.5, 1.5, 0.7)
 With sLens.CreateLens(cdrLensMagnify, 3).Lens
  .UseViewPoint = True
  .ViewPointX = 0.6
  .ViewPointY = 0.08
 End With
 ActiveLayer.CreateEllipse2 0.6, 0.08, 0.23
 ActiveLayer.CreateLineSegment 0.74, -0.1, 2.02, 1.02
 ActiveLayer.CreateLineSegment 0.39, 0.15, 0.85, 1.76
End Sub

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.