Re: Bilder automatisch einfügen
19.06.2003 20:18:24
Torsten
Halloich hab mir einige codeschnipsel zusammengetragen - die auch halbwegs funktionieren.
allerdings geht das nur wenn der code in der datei ist inder auch die bilder auftauchen sollen.
leiber wäre es mir wenn der code in einer extrenen datei stehen würde und per schaltfläche aktiviert wird.
hier der code:
Sub Worksheet_Change(ByVal Target As Range)
Dim aPic As Picture
Dim bPic As Picture
Dim cPic As Picture
Dim dPic As Picture
Dim iWks As Integer
Dim aFile As String
Dim bFile As String
Dim cFile As String
Dim dFile As String
iWks = 2
If Target.Address <> "$F$10" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
aFile = Range("F10").Value
bFile = Range("F11").Value
cFile = Range("F12").Value
dFile = Range("F13").Value
If Dir(aFile) = "" Then
Beep
MsgBox "Grafikdatei 1 wurde nicht gefunden!"
Exit Sub
End If
If Dir(bFile) = "" Then
Beep
MsgBox "Grafikdatei 2 wurde nicht gefunden!"
End If
If Dir(cFile) = "" Then
Beep
MsgBox "Grafikdatei 3 wurde nicht gefunden!"
End If
If Dir(dFile) = "" Then
Beep
MsgBox "Grafikdatei 4 wurde nicht gefunden!"
End If
Call Bilder_löschen
For iWks = Me.Index To Worksheets.Count
Set aPic = Worksheets(iWks).Pictures.Insert(aFile)
With aPic
.Left = 45
.Top = 0
.Width = 480
.Height = 70
.OnAction = "zurück_zu_gesamt"
End With
Set bPic = Worksheets(iWks).Pictures.Insert(bFile)
With bPic
.Left = 45
.Top = 770
.Width = 480
.Height = 30
.OnAction = "zurück_zu_gesamt"
End With
Set cPic = Worksheets(iWks).Pictures.Insert(cFile)
With cPic
.Left = 0
.Top = 0
.Width = 5
.Height = 800
.OnAction = "zurück_zu_gesamt"
End With
Set dPic = Worksheets(iWks).Pictures.Insert(dFile)
With dPic
.Left = 45
.Top = 580
.Width = 200
.Height = 50
.OnAction = "zurück_zu_gesamt"
End With
Next iWks
End Sub
wie gesagt - funktioniert gut innerhalb der datei und garnicht wenn ich versuche den code in meine extrene Makrodatei zu schreiben.
die fremddatei ist eigentlich nur dazu da um sämtlcihe makros zentral für alle anfallenden kundendateien zu verwalten.
wenn du einen tip für mich hättest was ich ändern muss um das makro von extren aufrufen kann wär ich dir sehr dankbar
gruss Torsten