生成一段VBA代码,把CorelDRAW x4版本中的页面大小调整到8000mm*8000mm
时间: 2023-03-14 11:24:09 浏览: 130
Sub ChangeSize()
Dim objDoc as CorelDRAW.Document
Set objDoc = Application.ActiveDocument
With objDoc
.Unit = cdrMillimeter
.SetSize 8000, 8000
End With
End Sub
相关问题
生成一段VBA代码,把CorelDRAW x8版本中的页面大小调整到8000mm*8000mm
Sub adjustPageSize()
Dim pageWidth as Long
Dim PageHeight as Long
pageWidth = 8000
PageHeight = 8000'获取当前文档
Dim currentDoc as Document
Set currentDoc = CorelDRAW.ActiveDocument'调整页面大小
currentDoc.SetSize pageWidth, pageHeightEnd Sub
生成一段vba代码,做一个Excle 报价器
好的。以下是一段生成 Excel 报价器的 VBA 代码示例:
```
Sub CreateQuotation()
' 定义变量
Dim product As String
Dim price As Double
Dim quantity As Integer
Dim total As Double
' 获取用户输入的产品名称、单价和数量
product = InputBox("请输入产品名称:")
price = InputBox("请输入单价:")
quantity = InputBox("请输入数量:")
' 计算总价
total = price * quantity
' 在工作表中插入新行并填写产品名称、单价、数量和总价
With ActiveSheet
.Cells(.Rows.Count, 1).End(xlUp).Offset(1).EntireRow.Insert
.Cells(.Rows.Count, 1).End(xlUp).Value = product
.Cells(.Rows.Count, 2).End(xlUp).Value = price
.Cells(.Rows.Count, 3).End(xlUp).Value = quantity
.Cells(.Rows.Count, 4).End(xlUp).Value = total
End With
End Sub
```
这段代码实现了以下功能:
1. 获取用户输入的产品名称、单价和数量。
2. 计算总价。
3. 在工作表中插入新行并填写产品名称、单价、数量和总价。
如果你想要在生成报价单时自动计算总价,你还可以添加一个按钮,点击按钮时调用上面的代码,实现自动生成报价单的功能。
希望这些内容对你有帮助。
相关推荐
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)