CorelDraw X6 宏使用 DTPicker 控件插入日期

Question

我正在尝试将日期插入标签。我已经编写了以下代码。我可以通过单击箭头来选择日期，然后会弹出日历。 “取消”按钮正在工作，但是当我单击“确定”时，我无法将其插入标签上。标签是带有文本和图像的常规 Corel 文档。我尝试插入一个矩形工具箱，看看是否可以通过使用 X、Y 坐标在其中插入日期，但这不起作用。 我基本上需要知道如何在标签上插入DTPicker.Value。

Sub ShowIt()
    Calendar.Show
End Sub

Private Sub Cancel_Click()
    Unload Me
End Sub

Private Sub OK_Click()
    a = DTPicker1.Value
    b = Format(DTPicker1.Value, "mm/dd/yy")
    Unload Me
End Sub

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
    DTPicker1.Value = Format(DTPicker1.Value, "mm/dd/yy")
End Sub

Private Sub Calendar_Activate()
    Me.DTPicker1.Value = Date    
End Sub

谢谢！

Answer 1

试试这个： 1.在宏窗体上添加一个按钮 2.选择矩形 3. 点击按钮 4. 宏会读取矩形的X, Y Pos，然后创建文本并将其定位在矩形的中心

ActiveDocument.ReferencePoint = cdrCenter

XPos = Activeselection.PositionX 'XPos of the rect

YPos = Activeselection.PositionY 'YPos of the rect

Set s = ActiveLayer.CreateArtisticText(0, 0, CStr(Date))

s.PositionX=XPos

s.PositionY=YPos

Answer 2

尝试运行之前与您的代码分开的代码。

Sub Macro1()

  ActiveDocument.ReferencePoint = cdrCenter

  XPos = Activeselection.PositionX 

  YPos = Activeselection.PositionY 

  Set s = ActiveLayer.CreateArtisticText(0, 0, CStr(Date))

  s.PositionX=XPos

  s.PositionY=YPos

End Sub

1. 选择矩形
2. 点击宏

3. 宏应该可以完美地创建日期并将其放置在矩形的中心。但是，日期是现在（宏执行的日期）。

4. 那么你应该将“CStr(Date)”修改为引用日期的值。

Answer 3

“对象变量或未设置块变量”。

那里没有活动文档。

我认为你应该先创建新文档

Answer 4

以下代码应按要求工作：

ActiveDocument.ReferencePoint = cdrCenter

XPos = Activeselection.PositionX 'XPos of the rect

YPos = Activeselection.PositionY 'YPos of the rect

Set s = ActiveLayer.CreateArtisticText(0, 0, CStr(Date))

s.PositionX=XPos

s.PositionY=YPos

但是： 他没有使用 Corel Draw ..... :)
https://community.coreldraw.com/talk/coreldraw_community/f/101/t/51007