Hallo zusammen,
ich habe mir folgendes Makro im corelDraw aufgenommen. Nun will ich es um folgende Funktion ergänzen:
Es soll eine Inputbox erstellt werden ("Geben Sie den Namen des Bildes ein!")
Dieser eingegebene Name soll beim speichern siehe 4 letzte Zeile der Aufnahme an der Stelle des xyz.bmp stehen.
Ist das überhaupt möglich?
Please support me.....
Grüße Pete
Sub b()
' Recorded 27.03.2009
Dim expflt As ExportFilter
Dim pal As StructPaletteOptions
Set pal = New StructPaletteOptions
With pal
.PaletteType = cdrPaletteOptimized
.NumColors = 256
.Smoothing = 0
.DitherType = cdrDitherOrdered
.DitherIntensity = 100
.ColorSensitive = False
End With
Set expflt = ActiveDocument.ExportBitmap("C:\PVMPDATA\ExportBilderCorelDraw\xyz.bmp", cdrBMP, cdrAllPages, cdrPalettedImage, 1280, 1024, 300, 300, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionLZW, pal)
expflt.Finish
End Sub |