Bilder von einem zum andern Blatt kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hoi Tino
Wie kann ich die Anzahl der Auswahl von den Bilder vergrössern? Ich brauch ca. 30 Bilder, die im Blatt "bilder" in Spalte A ablegen möchte. Zur Zeit werden immmer nur 4 Auswahlen gezeigt. Wie geht
das, dass ich auch die andern Bilder einbeziehen kann?
Leider geht der Upload nicht, um meine Datei zu zeigen. Ein Wechsel der Bilder werde ich dann einfach mit

Sub Test01()
Range("D6").FormulaR1C1 = "Anzeige 1"
Range("k17").FormulaR1C1 = "Anzeige 1"
Range("f17").FormulaR1C1 = "Anzeige 2"
Range("o7").Select
End Sub

Sub Test02()
Range("D6").Select
Range("D6").FormulaR1C1 = "Anzeige 2"
Range("k17").FormulaR1C1 = "Anzeige 3"
Range("f17").FormulaR1C1 = "Anzeige 1"
Range("o7").Select
End Sub

durchführen. u.s.w
Gruss und Dank
Albin
PS: wie spreche ich überhaupt den Schalter in B3 an?

Hoi Zusammen
Danke für Eure Hilfe. Leider kann ich es so nicht benützen.
Komisch ist auch mein Link vom meinen Upload File. Der passt bei mir nicht mehr?
Da der Code , der leider nur Bilder von einem Laufwerk holt. Mein Ziel ist, Bilder von einem anderen Blatt zu importieren und entsprechend in eine bestimmte Zellen ablegen. Auch ware es gut, wenn der Code zum Schluss, dass Bild an die Zelle - Grösse anpasst. Dies weil ich ca. 30 Ziel , Zelle habe.

Sub AP1zeigZeigen()
Dim lngZeile As Long
Dim lngSpalte As Long
Dim sPicture As String, pic As Picture
Dim rngPic As Range
Set rngPic = Range("B2")  'altes Bild löschen
For Each pic In ActiveSheet.Pictures
Debug.Print pic.Name; vbTab; pic.TopLeftCell.Address
If Not Intersect(pic.TopLeftCell, rngPic) Is Nothing Then
pic.Delete
End If
Next pic
Sheets("Anzeige").Range("b2").Select
Range("B3").FormulaR1C1 = ""
strVerzeichnis = "C:\TEMP\mon\"     '---
strDatei = Dir(strVerzeichnis & "\dcs_Patrol.jpg") '---
sPicture = strVerzeichnis & strDatei '---
If sPicture = "False" Then Exit Sub
' wie bekomme ich den Wert von "Picture" auf das Bild im Blatt
' Bilder Grafik 3 rein und nicht auf den PC Pfaht von "C:\TEMP\mon\dcs..." ?
' habe schon mit vielen Optionen versucht, sind immer "leer"
' z.B. sPicture = ActiveSheet.Shapes.Range(Array("Grafik 3")).Select
' sPicture = Worksheets("Bilder").Pictures.Insert("Grafik 3")
Picture = strVerzeichnis & strDatei  '-----
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = ActiveCell.Height
.Width = ActiveCell.Width
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Placement = xlMoveAndSize
End With
Set pic = Nothing
Range("b3").Value = Range("e5").Value
End Sub

Danke und Gruss
Albin

Beliebteste Forumthreads (12 Monate)

Bilder von einem zum andern Blatt kopieren

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bilder von einem zum andern Blatt kopieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread