我正在用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宏,它接受(打开) CorelDraw绘图中的当前选择并将其移动。当我将OrigSelection设置为app.ActiveSelectionRange时,为什么会出现不匹配的运行时错误?这是我的代码:
Private Sub MoveAndResizeSelection()
Dim app As CorelDraw.Application
Set app = CorelDraw.Application
Dim OrigSelection As ShapeRange
Set OrigSelection = app.ActiveSelect
我有一个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
Update:字体问题通过使用rc("pdf",fonttype=42)成功地解决了,但不幸的是,它与另一个--每当使用任何类型的标记时,CorelDraw都会附带错误“文件已损坏”。
当我将图表从Matplotlib输出到PDF中时,我无法在Corel绘图中打开它。我高度怀疑,主要的问题可能是文本/字体。
简单的代码示例,我需要更新它才能在Corel绘图中正确导入文本和标记的PDF:
from matplotlib.backends.backend_pdf import PdfPages
import matplotlib.pyplot as plt
from matplot
我正在编写一个CorelDraw宏,它通过打开一个Workbook从Workbook中获取一些数据。
我喜欢在使用变量之前声明它们(通常也需要使用Option Explicit)。
在这个子部分中,我声明我的Workbook变量为:
Sub needsWorkbookType()
Dim notCompile As workbook
End Sub
但是,由于我是从CorelDraw运行的,所以无法访问Excel的类型。当我试图运行这个子程序时,我会得到一个编译错误:
未定义用户定义类型
我知道我可以通过关闭显式声明,而不声明任何Excel变量来解决这个问题。解释器将动态
我试图在Laravel5.8中成功地保存一个parent_id of Category,但我现在想编辑类别。
CategoryController.php
public function edit(Category $category)
{
return view('Admin.categories.edit', compact('category'));
}
public function update(CategoryRequest $request, Category $category)
{
$category->update($
我在带有for循环的数组中的coreldraw宏中创建了一些形状:
Dim i, j As Double
j = 1
Dim t() As Shape
For i = 1.575 To s4height - 1.575 Step 1.575
ReDim t(j)
Set t(j) = s5.Duplicate
t(j).Move 0, i
j = j + 1
Next i
现在我想分组s5形状和t()数组中的所有形状,我感谢大家的想法,分享!
我想使用VBA自动化一些步骤,我也希望能够从命令行执行所有的东西。在我的例子中,我使用Corel绘图,但我认为我的问题独立于Corel绘图--它更多地是一个关于名称空间的问题。
因此,我编写了以下小脚本(称为foo.vbs):
dim drawApp
Set drawApp = CreateObject( "CorelDraw.Application.14" )
drawApp.OpenDocument( "C:\foo\bar.cdr" )
Dim exportFilter
set exportFilter = drawApp.ActiveDocument.