Bild schwarz / weiss
30.09.2005 09:13:04
virgilio
habe im Forum Makro gefunden was mir wmf Bilder auf fest definierten Plätzen einfügt. Passt alles prima.
Nun aber möchte ich Makro insofern ergänzen, dass jedes Bild dann schwarz / weissgemacht wird.
Hierzu habe ich im Makrorecorder ein Bild ausgewählt und diesen Befehl durchgeführt. Kann mir jemand diesen Code im Makro einbauen, da ich das alleine nicht schaffe.
Danke
gio
Selection.ShapeRange.PictureFormat.ColorType = msoPictureBlackAndWhite
Sub Bilderrein()
Dim StBild As String
Dim InI As Integer
Dim RaBereich As Range, RaZelle As Range
For InI = ActiveSheet.Shapes.Count To 1 Step -1
Next
' Bereich der Wirksamkeit
Set RaBereich = Range("A5,D5,G5,J5,M5,P5,S5,V5,A10,D10,G10,J10,M10,P10,S10,V10,A15,D15,G15,J15,M15,P15,S15,V15,A20,D20,G20,J20,M20,P20,S20,V20")
For Each RaZelle In RaBereich
' Bildname feststellen
StBild = ActiveWorkbook.Path & "\" & RaZelle.Value & ".wmf"
If Dir(StBild) <> "" Then
' Veränderung im Aufruf von jinx, damit Bild groß wird bei Click
With ActiveSheet.Shapes.AddPicture(StBild, True, True, RaZelle.Left + RaZelle.Width, _
RaZelle.Top, 75, 75)
End With
Else
' Standardbild einfüge falls Bild nicht vorhanden
StBild = ActiveWorkbook.Path & "\0.wmf"
End If
Next RaZelle
Set RaZelle = Nothing
End Sub