我有一个简短的Excel宏,它接受(打开) CorelDraw绘图中的当前选择并将其移动。当我将OrigSelection设置为app.ActiveSelectionRange时,为什么会出现不匹配的运行时错误?这是我的代码:
Private Sub MoveAndResizeSelection()
Dim app As CorelDraw.Application
Set app = CorelDraw.Application
Dim OrigSelection As ShapeRange
Set OrigSelection = app.ActiveSelect
我正在用VBA编写一个脚本,在CorelDraw中创建一个绘图。我很难把课文放在中心位置。以下是CorelDraw的宏编辑器中正常工作的代码:
Dim s2 As Object
Dim Txt As Object
Dim test As String
Dim returntest As String
returntest = "Test~Test1234~Test56~Test789"
test = Replace(returntest, "~", Chr(13))
Set s2 = CorelApp.Active
有人能帮我介绍一下coreldraw中的exportfilter对象模型吗?我找不到关于这个主题的任何好信息,除了我不理解它是如何产生的示例代码?我是vba coreldraw的新手。
Dim exF as ExportFilter
From object browser ExportFilter has
Finish - method
HasDialog - properties
Reset - method
ShowDialog - method
My questions how many sample code that scattered on many forum about co
我有一个Excel (Office16) VBA代码,它打开一个CorelDraw文档,并根据文档中每个页面的方向执行任务。守则如下:
Dim app As Object
Dim page As Object
Set app = CreateObject("CorelDRAW.Application")
app.OpenDocument "xxx.pdf"
For Each page In app.ActiveDocument.Pages
If page.Orientation = cdrLandscape Then
...
End If
Next
代码无法
每次我选择Debug..。附加到进程并选择CorelDRW.exe,它会使CorelDRAW崩溃,Visual报告:
The program '[1028] CorelDRW.exe' has exited with code -1073741819 (0xc0000005) 'Access violation'.
列表框是通过打开包含数据的csv文件创建的(8列9行数据示例) ..........................
For r = 0 To ListBoxSayisi
Set cTR = New Control
Set cTR = Me.Controls.Add("Forms.ListBox.1", "ListBox" & r + 1, True)
For i = 1 To UBound(arrX)
cTR.AddItem arrX(i, r + 1) 'r + 1
Next i
With cTR
.Width = 100: .Height