mehrere Bilformate aktzeptieren, nicht nur *.gif
11.07.2007 11:21:00
gio
komm nicht mehr weiter und brauche Eure Hilfe.
Wie muß ich Makro ändern damit mylogo in allen Bildformaten eingefügt werden kann.
Derzeit kann ich das logo nur als *.gif hinterlegen
Besten Dank
gio
Sub bildrein2()
Range("E5").Select
ChDrive Sheets("Kopf").Range("H1")
ChDir "\"
'Pfad und Laufwerk festlegen aus dem Bild geöffnet werden soll
' Aplikation Bild einfügen starten
ActiveSheet.Pictures.Insert(Sheets("Kopf").Range("H1") & "Programme\kalk1\wmf\mylogo.gif"). _
Select
' Import
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 150
Selection.ShapeRange.Height = 30
If Selection.ShapeRange.Height > Selection.ShapeRange.Width Then
Selection.Cut
Range("E5").Select
ActiveSheet.Pictures.Insert(Wert).Select
Selection.ShapeRange.Height = 150
If Selection.ShapeRange.Width > 150 Then
Selection.ShapeRange.Width = 150
End If
Range("E5").Select
ActiveCell.FormulaR1C1 = "1"
Range("E5").Select
End If
If Selection.ShapeRange.Width > Selection.ShapeRange.Height Then
Selection.Cut
Range("E5").Select
ActiveSheet.Pictures.Insert(Sheets("Kopf").Range("H1") & "Programme\kalk1\wmf\mylogo.gif"). _
Select
Selection.ShapeRange.Width = 150
If Selection.ShapeRange.Height > 120 Then
Selection.ShapeRange.Height = 100
End If
End If
End Sub