Hallo zusammen,
ich habe folgendes Problem:
Ich habe mir ein Makro aufgenommen, dass ich jetzt noch händisch ergänzen möchte.
Es soll eine Inputbox erstellt werden: InputBox("Geben Sie den Name des Bildes ein!").
Der eingetragene Name soll dann an der xyz Stelle (am Ende der Prozedur) stehen.
Hat hierzu jemand eine Idee ???
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 = cdrDitherOrder
.DitherIntensity = 100
.ColorSensitive = False
End With
Set expflt = ActiveDocument.ExportBitmap("C:\Pfad\xyz", cdrBMP, cdrAllPages, cdrPalettedImage, 1280, 1024, 300, 300, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionLZW, pal)
expflt.Finish
End Sub |