Create a VBA Module

Introduction

Aspose.Slides.Cloud API allows to create VBA modules and add global references if needed.

CreateVbaModule

API Information

API	Type	Description	Resource
/slides/{name}/vbaProject/modules	POST	Returns VBA module info	CreateVbaModule

Examples

cURL Example

The code example below shows how to create VBA module and add two global references.

Request

Create Authentication Headers

curl -v "https://api.aspose.cloud/connect/token" -X POST -d "grant_type=client_credentials&client_id=XXXX&client_secret=XXXX-XX" -H "Content-Type: application/x-www-form-urlencoded" -H "Accept: application/json"

curl -X POST "https://api.aspose.cloud/v3.0/slides/MyPresentation.pptm/vbaProject/modules" -H "Authorization: Bearer [Access Token]" -H "Content-Type: text/json" -F @"vbaModule.json"

vbaModule.json

{
    "name": "NewModule",
    "sourceCode": "Sub Test() MsgBox \"Test\" End Sub",
    "references": [
        {
            "name": "stdole",
            "libId": "*\\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\\Windows\\system32\\stdole2.tlb#OLE Automation"
        },
        {
            "name": "Office",
            "libId": "*\\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE14\\MSO.DLL#Microsoft Office 14.0 Object Library"
        }
    ]
}

Response


Code: 201
Returns VBA module info.

SDK Examples

SlidesApi api = new SlidesApi("MyClientId", "MyClientSecret");

VbaModule dto = new VbaModule()
{
    Name = "NewModule",
    SourceCode = @"Sub Test() MsgBox ""Test"" End Sub",
    References = new List<VbaReference>()
    {
        new VbaReference()
        {
            Name = "stdole",
            LibId = "*\\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\\Windows\\system32\\stdole2.tlb#OLE Automation"
        },
        new VbaReference()
        {
            Name = "Office",
            LibId = "*\\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE14\\MSO.DLL#Microsoft Office 14.0 Object Library"
        }    
    }
};

VbaModule response = api.CreateVbaModule("MyPresentation.pptm", dto);

Console.WriteLine($"\"{response.Name} has been created \n{response.SelfUri.Href}");

Java

SlidesApi api = new SlidesApi("MyClientId", "MyClientSecret");

VbaModule dto = new VbaModule();
dto.setName("NewModule");
dto.setSourceCode("Sub Test() MsgBox \"Test\" End Sub");
VbaReference reference1 = new VbaReference();
reference1.setName("stdole");
reference1.setLibId("*\\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\\Windows\\system32\\stdole2.tlb#OLE Automation");
VbaReference reference2 = new VbaReference();
reference2.setName("Office");
reference2.setLibId("*\\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE14\\MSO.DLL#Microsoft Office 14.0 Object Library");
List<VbaReference> references = new ArrayList<VbaReference>();
references.add(reference1);
references.add(reference2);
dto.setReferences(references);
VbaModule response = api.createVbaModule("MyPresentation.pptm", dto, null, null, null);
String s = String.format("\"%s\" has been created \n%s", response.getName(), response.getSelfUri().getHref());
System.out.println(s);

PHP

use Aspose\Slides\Cloud\Sdk\Api\Configuration;
use Aspose\Slides\Cloud\Sdk\Api\SlidesApi;
use Aspose\Slides\Cloud\Sdk\Model\VbaModule;
use Aspose\Slides\Cloud\Sdk\Model\VbaReference;

$config = new Configuration();
$config->setAppSid("MyClientId");
$config->setAppKey("MyClientSecret");
$api = new SlidesApi(null, $config);

$vbaModule = new VbaModule();
$vbaModule->setName("NewModule");
$vbaModule->setSourceCode("Sub Test() MsgBox \"Test\" End Sub");

$reference1 = new VbaReference();
$reference1->setName("stdole");
$reference1->setLibId("*\\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\\Windows\\system32\\stdole2.tlb#OLE Automation");
$reference2 = new VbaReference();
$reference2->setName("Office");
$reference2->setLibId("*\\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE14\\MSO.DLL#Microsoft Office 14.0 Object Library");
$vbaModule->setReferences([$reference1, $reference2]);

$result = $api->createVbaModule("MyPresentation.pptm", $vbaModule);
echo "\"" . $result->getName() . "\" has been created\n" . $result->getSelfUri()->getHref();

Ruby

configuration = AsposeSlidesCloud::Configuration.new
configuration.app_sid = "MyClientId"
configuration.app_key = "MyClientSecret"
api = AsposeSlidesCloud::SlidesApi.new(configuration)

dto = AsposeSlidesCloud::VbaModule.new
dto.name = "NewModule"
dto.source_code = "Sub Test() MsgBox ""Test"" End Sub"
        
reference1 = AsposeSlidesCloud::VbaReference.new
reference1.name = "stdole"
reference1.lib_id = "*\\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\\Windows\\system32\\stdole2.tlb#OLE Automation"
reference2 = AsposeSlidesCloud::VbaReference.new
reference2.name = "Office"
reference2.lib_id = "*\\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE14\\MSO.DLL#Microsoft Office 14.0 Object Library"
dto.references = [reference1, reference2]

response = api.create_vba_module("MyPresentation.pptm", dto)
puts "'#{response.name}' has been created \n #{response.self_uri.href}"

Python

import asposeslidescloud

from asposeslidescloud.configuration import Configuration
from asposeslidescloud.apis.slides_api import SlidesApi
from asposeslidescloud.models.vba_module import VbaModule
from asposeslidescloud.models.vba_reference import VbaReference

configuration = Configuration()
configuration.app_sid = 'MyClientId'
configuration.app_key = 'MyClientSecret'
api = SlidesApi(configuration)

dto = VbaModule()
dto.name = "NewModule"
dto.source_code = "Sub Test() MsgBox ""Test"" End Sub"
reference1 = VbaReference()
reference1.name = "stdole"
reference1.lib_id = "*\\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\\Windows\\system32\\stdole2.tlb#OLE Automation"
reference2 = VbaReference()
reference2.name = "Office"
reference2.lib_id = "*\\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE14\\MSO.DLL#Microsoft Office 14.0 Object Library"
dto.references = [reference1, reference2]
response = api.create_vba_module("MyPresentation.pptm", dto)
print("\"" + response.name + "\" has been created\n" + response.self_uri.href)

Node.js

const CloudSdk = require("asposeslidescloud");
const api = new CloudSdk.SlidesApi("MyClientId", "MyClientSecret");

const dto = new CloudSdk.VbaModule();
dto.name = "NewModule";
dto.sourceCode = "Sub Test() MsgBox \"Test\" End Sub";
dto.references = [
    {
        name: "stdole",
        libId: "*\\\\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\\\\Windows\\\\system32\\\\stdole2.tlb#OLE Automation"
    },
    {
        name: "Office",
        libId: "*\\\\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\\\\Program Files\\\\Common Files\\\\Microsoft Shared\\\\OFFICE14\\\\MSO.DLL#Microsoft Office 14.0 Object Library"
    }
];
const response = await api.createVbaModule("MyPresentation.pptm", dto).then(response => {
const vbaModule = response.body;
console.log("\"" + vbaModule.name + "\" has been created\n" + vbaModule.selfUri.href);
});

cfg := asposeslidescloud.NewConfiguration()
cfg.AppSid = "MyClientId"
cfg.AppKey = "MyClientSecret"
api := asposeslidescloud.NewAPIClient(cfg)

fileName := "MyPresentation.pptm"
dto := asposeslidescloud.NewVbaModule()
dto.Name = "NewModule"
dto.SourceCode = "Sub Test() MsgBox \"Test\" End Sub"
reference1 := asposeslidescloud.NewVbaReference()
reference1.Name = "stdole"
reference1.LibId = "*\\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\\Windows\\system32\\stdole2.tlb#OLE Automation"
reference2 := asposeslidescloud.NewVbaReference()
reference2.Name = "Office"
reference2.LibId = "*\\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE14\\MSO.DLL#Microsoft Office 14.0 Object Library"
dto.References = []asposeslidescloud.IVbaReference{reference1, reference2}

response, _, e := api.SlidesApi.CreateVbaModule(fileName, dto, "", "", "")
if e != nil {
    fmt.Printf("Error: %v.", e)
    return
}
fmt.Printf("\"%v\", has been created \n%v", response.GetName(), response.GetSelfUri().GetHref())

C++

Perl

use AsposeSlidesCloud::Configuration;
use AsposeSlidesCloud::SlidesApi;
use AsposeSlidesCloud::Object::VbaModule;

my $config = AsposeSlidesCloud::Configuration->new();
$config->{app_sid} = "MyClientId";
$config->{app_key} = "MyClientSecret";
my $api = AsposeSlidesCloud::SlidesApi->new(config => $config);

my $dto = AsposeSlidesCloud::Object::VbaModule->new();
$dto->{name} = "NewModule";
$dto->{source_code} = "Sub Test() MsgBox \"Test\" End Sub";
my $reference_1 = AsposeSlidesCloud::Object::VbaReference->new();
$reference_1->{name} = "stdole";
$reference_1->{lib_id} = "*\\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\\Windows\\system32\\stdole2.tlb#OLE Automation";
my $reference_2 = AsposeSlidesCloud::Object::VbaReference->new();
$reference_2->{name} = "Office";
$reference_2->{lib_id} = "*\\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE14\\MSO.DLL#Microsoft Office 14.0 Object Library";
my @references = ($reference_1, $reference_2);
$dto->{references} = \@references;

my %params = ('name' => 'MyPresentation.pptm', 'module_dto' => $dto);
my $response = $api->create_vba_module(%params);

print "'".$response->{name}."' has been created\n".$response->{self_uri}->{href};

Swift

SDK Source

The Aspose for Cloud SDKs can be downloaded from the following page: Available SDKs

Delete a VBA Module