Thema Datum  Von Nutzer Rating
Antwort
Rot im Aufnamhemakro eine Inputb Ergänznung hinzufügen
 27.03.2009 13:45:27 pete
NotSolved

Ansicht des Beitrags:
Von:
pete		 Datum:
27.03.2009 13:45:27		 Views:
1922		 Rating:
     
Antwort:
  Ja
Thema:
im Aufnamhemakro eine Inputb Ergänznung hinzufügen
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot im Aufnamhemakro eine Inputb Ergänznung hinzufügen
 27.03.2009 13:45:27 pete
NotSolved