Thema Datum  Von Nutzer Rating
Antwort
14.01.2006 11:53:50 Sepp Fantasy
NotSolved
Blau Aw:MDIVWCTL, das "Microsoft Document Imaging" suc
 15.01.2006 15:10:39 Danwe
NotSolved

Ansicht des Beitrags:
Von:
Danwe		 Datum:
15.01.2006 15:10:39		 Views:
1138		 Rating:
     
Antwort:
  Ja
Thema:
Aw:MDIVWCTL, das "Microsoft Document Imaging" suc
Hi,

Die Imagefeld fällt ja wohl schonmal weg da diese kein tif darstellen kann. Eine Picturebox wie in VB gibts wohl auch nicht, aber es gibt ja noch weitere Steuerelemente, mit einem rechtsklick auf dein Werkzeugsammlung Kästchen, vielleicht findest du dort drunter etwas nützliches?
Was ich dir aber raten würde, wäre folgendes, was ich gerade über Google gefunden habe:

Sub Bild_exportieren()
Dim myChartObject As ChartObject, myShape As Shape
Dim bolfound As Boolean
Application.ScreenUpdating = False
For Each myShape In ActiveSheet.Shapes
If myShape.Type = msoPicture Then bolfound = True: Exit For
Next
If bolfound Then
myShape.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Worksheets.Add
Set myChartObject = ActiveSheet.ChartObjects.Add(0, 0, myShape.Width, myShape.Height)
With myChartObject
.Activate
.Chart.Paste
.Chart.Export Filename:=ActiveWorkbook.Path & "\zwischenablage.jpg", FilterName:="JPG", Interactive:=False
End With
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Set myChartObject = Nothing
Set myShape = Nothing
Application.ScreenUpdating = True
End If
End Sub

Das Bild wird also in ein JPG umgewandelt u. du kannst es mit dem Bildanzeige Steuerelement anzeigen lassen.
Würde dann aber ein on Error einbauen das das Application.ScreenUpdating wieder auf True setzt, im Falle eines Falles.

Ansonsten könnte man wohl auch Irvanview heranziehen u. per Shell starten, dazu habe ich dieshier gefunden:

Option Explicit

Const IV As String = "h:\irfanview\i_view32.exe"


Sub ConvIt()
Dim myCom As String
Dim srcFile As String, dstFile As String

srcFile = "d:\daten\test.jpg"
dstFile = "d:\daten\test.bmp"
myCom = IV & " " & srcFile & " /convert=" & dstFile
Shell (myCom)
End Sub


Hoffe das konnte dir helfen. Den Link zum Nachlesen? Hier:
http://www.herber.de/forum/archiv/568to572/t568652.htm

MfG Danwe

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
14.01.2006 11:53:50 Sepp Fantasy
NotSolved
Blau Aw:MDIVWCTL, das "Microsoft Document Imaging" suc
 15.01.2006 15:10:39 Danwe
NotSolved