Thema Datum  Von Nutzer Rating
Antwort
27.03.2009 16:01:41 pete
NotSolved
Blau Aw:Ergänznung eines Aufnahmemakro
 28.03.2009 10:11:04 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
28.03.2009 10:11:04		 Views:
1031		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Ergänznung eines Aufnahmemakro
Hallo pete,
dies ist ein VBA-Forum, wobei sich das A für Applications auf Anwendungen der Microsoft-Office-Suite beszieht. Dein Code bezieht sich aber auf CoralDraw, wie du in früheren Beiträgen ausgeführt hast. Deshalb darfst du nicht erwarten, hier fertige Lösungen zu erhalten.
Dennoch gebe ich dir einige Hinweis. Schau doch einmal in der Dokumentation deines Programms unter den Stichworten InputBox, Replace, Instr, Left, Right, Mid usw. nach. Mit etwas Geduld, wirst du dann schon eine Lösung finden und gleichzeitig etwas Programmierkenntnisse erlangen.
Gruß
Holger


pete schrieb am 27.03.2009 16:01:41:

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

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
27.03.2009 16:01:41 pete
NotSolved
Blau Aw:Ergänznung eines Aufnahmemakro
 28.03.2009 10:11:04 Holger
NotSolved