Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(Excel) Update a String Property in XMPDemonstrates how to open a JPG or TIF image file, access the XMP metadata, and update the value of a string property. (If the string property does not already exist, it is created.)
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim xmp As Chilkat.Xmp Set xmp = Chilkat.NewXmp ' Load a JPG or TIF image file. success = xmp.LoadAppFile("qa_data/xmp/AJ_123642_1511.tif") If (success <> True) Then Debug.Print xmp.LastErrorText Exit Sub End If Debug.Print "Num embedded XMP docs: "; xmp.NumEmbedded ' This example assumes that XMP metadata is already present in the image file. If (xmp.NumEmbedded = 0) Then Debug.Print "No XMP metadata already exists.." Exit Sub End If ' Get the XMP metadata. Set xml = xmp.GetEmbedded(0) ' Show the XML: Debug.Print xml.GetXml() ' Update (overwrite) a string property. success = xmp.AddSimpleStr(xml,"NumberofTimes","123") success = xmp.SaveAppFile("qa_output/updated.tif") If (success <> True) Then Debug.Print xmp.LastErrorText Exit Sub End If Debug.Print "Success." |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.