تعيين رمز الماكرو لعنصر تحكم النموذج
Contents
[
Hide
]
تُسمح لك Aspose.Cells بتعيين رمز ماكرو لعنصر تحكم مثل زر. يرجى استخدام الطريقة ShapeCollection.addShape() لتعيين رمز ماكرو جديد لعنصر تحكم داخل الدفتر.
تعيين رمز ماكرو لعنصر تحكم باستخدام Aspose.Cells
يلخي الكود العيني التالي دفتر عمل جديد، يعين رمز ماكرو لعنصر تحكم النموذج ويحفظ الناتج في تنسيق XLSM. بمجرد فتح ملف XLSM الناتج في Microsoft Excel سترى رمز الماكرو التالي.
Sub ShowMessage()
MsgBox "Welcome to Aspose!"
End Sub
إليك كود عينة لإنشاء ملف XLSM الناتج مع رمز ماكرو.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// For complete examples and data files, please go to https://github.com/aspose-cells/Aspose.Cells-for-Java | |
// The path to the documents directory. | |
String dataDir = Utils.getDataDir(AssignMacroToFormControl.class); | |
Workbook workbook = new Workbook(); | |
Worksheet sheet = workbook.getWorksheets().get(0); | |
int moduleIdx = workbook.getVbaProject().getModules().add(sheet); | |
VbaModule module = workbook.getVbaProject().getModules().get(moduleIdx); | |
module.setCodes("Sub ShowMessage()" + "\r\n" + | |
" MsgBox \"Welcome to Aspose!\"" + "\r\n" + | |
"End Sub"); | |
Button button = (Button) sheet.getShapes().addShape(MsoDrawingType.BUTTON, 2, 0, 2, 0, 28, 80); | |
button.setPlacement(PlacementType.FREE_FLOATING); | |
button.getFont().setName("Tahoma"); | |
button.getFont().setBold(true); | |
button.getFont().setColor(Color.getBlue()); | |
button.setText("Aspose"); | |
button.setMacroName(sheet.getName() + ".ShowMessage"); | |
workbook.save(dataDir + "Output.xlsm"); | |
System.out.println("File saved"); |