Makro dem Formularsteuerelement zuweisen
Contents
[
Hide
]
Aspose.Cells ermöglicht es Ihnen, einem Formularsteuerelement wie einem Button einen Makrocode zuzuweisen. Bitte verwenden Sie dieShape.MarcoName -Eigenschaft, um einem Formularsteuerelement in der Arbeitsmappe einen neuen Makrocode zuzuweisen.
Der folgende Beispielcode erstellt eine neue Arbeitsmappe, weist einer Formularschaltfläche einen Makrocode zu und speichert die Ausgabe im Format XLSM. Sobald Sie die Ausgabedatei XLSM in Microsoft Excel öffnen, sehen Sie den folgenden Makrocode.
Sub ShowMessage()
MsgBox "Welcome to Aspose!"
End Sub
Weisen Sie dem Formularsteuerelement in C# ein Makro zu
Hier ist der Beispielcode zum Generieren der Ausgabedatei XLSM mit Makrocode.
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-.NET | |
// The path to the documents directory. | |
string dataDir = RunExamples.GetDataDir(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType); | |
if (!System.IO.Directory.Exists(dataDir)) | |
{ | |
System.IO.Directory.CreateDirectory(dataDir); | |
} | |
Aspose.Cells.Workbook workbook = new Aspose.Cells.Workbook(); | |
Aspose.Cells.Worksheet sheet = workbook.Worksheets[0]; | |
int moduleIdx = workbook.VbaProject.Modules.Add(sheet); | |
Aspose.Cells.Vba.VbaModule module = workbook.VbaProject.Modules[moduleIdx]; | |
module.Codes = | |
"Sub ShowMessage()" + "\r\n" + | |
" MsgBox \"Welcome to Aspose!\"" + "\r\n" + | |
"End Sub"; | |
Aspose.Cells.Drawing.Button button = sheet.Shapes.AddButton(2, 0, 2, 0, 28, 80); | |
button.Placement = Aspose.Cells.Drawing.PlacementType.FreeFloating; | |
button.Font.Name = "Tahoma"; | |
button.Font.IsBold = true; | |
button.Font.Color = System.Drawing.Color.Blue; | |
button.Text = "Aspose"; | |
button.MacroName = sheet.Name + ".ShowMessage"; | |
dataDir = dataDir + "Output.out.xlsm"; | |
workbook.Save(dataDir); |