Kann mir wirklich keiner helfen ?



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Kann mir wirklich keiner helfen ?
von: Stefan Koch
Geschrieben am: 24.05.2002 - 12:55:57

Siehe meine Frage vom 23.5.02 13:53:41

Vielen Dank im Voraus
Stefan

nach oben   nach unten

Re: Kann mir wirklich keiner helfen ?
von: Uwe
Geschrieben am: 24.05.2002 - 15:04:24

Hallo Stefan,
füge auf dein Tabellenblatt ein Rechteck ein.
füge folgendes Makro in das entsprechende Tabellenblatt ein.
Passe die Target.Address an (Zelladresse in der der Bildname inklusive Pfad steht)
Passe ActiveSheet.Shapes("Retangle 2").select an (Name des Rechtecks)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$C$2" Then
ActiveSheet.Shapes("Rectangle 2").Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.UserPicture Datei
End If
End Sub


Ich hoffe Du kommst hiermit zurecht und ich habe dein Problem verstanden.
Ansonsten melde dich nochmal Antworten kann ich aber frühestens am Montag.

Gruß
Uwe


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Spalten erweitern"