Bilder kopieren mit "If" "Then"
26.11.2002 18:46:38
Frank Sp.
Ich möchte gerne bis zu 4 Bilder über nur eine Schaltfläche in ein Formular kopieren.Das 1. in Zelle A1, wenn diese belegt, dann in H1 wenn diese belegt dann in A10, wenn diese belegt dann in H10. Das habe ich bisher zustande gebracht.
Bin für jede Hilfe dankbar.
Sub Makro7()
Dim Picture As Picture
Dim s As String
s = Application.GetOpenFilename _
(" Bilder(*.Jpg;*.Bmp;*.Gif),*.jpg,*.bmp,*.gif")
Range("A1").Select
Set Picture = ActiveSheet.Pictures.Insert(s)
Picture.ShapeRange.Height = 122
If Not IsEmpty(Range("A1")) Then
Range("H1").Select
Range("A1").Value = 1
Set Picture = ActiveSheet.Pictures.Insert(s)
Picture.ShapeRange.Height = 122
ElseIf Not IsEmpty(Range("H1")) Then
Range("A10").Select
Set Picture = ActiveSheet.Pictures.Insert(s)
Picture.ShapeRange.Height = 122
Range("H1").Value = 2
End If
End Sub
Anzeige