Bilder darstellen

Forumthread: Bilder darstellen

Bilder darstellen

16.12.2004 20:56:46

Günter

Guten Abend !
Ein Problem, das ich gerne in einem Beispiel zeigen
würde.
Hier: https://www.herber.de/bbs/user/14936.xls
Es geht mir darum, dass bei einer Auswahl das entsprechende Bild aus
der Spalte C dargestellt wird.
Gruss
Günter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bilder darstellen

Ramses

Hallo
den Namen des Bildes musst du halt aus der entsprechenden Zeile des gesuchten Wertes auslesen
Option Explicit


Sub Place_Picture()
Dim myImage As String
myImage = "Bild.gif"
ActiveSheet.Pictures.Insert("C:\Bilder\" & myImage).Select
'Platzierung des Bildes
With Selection
.ShapeRange.IncrementLeft 266.25
.ShapeRange.IncrementTop 194.25
End With
End Sub

Gruss Rainer

AW: Bilder darstellen

16.12.2004 21:19:28

Günter

Dank Dir Rainer.
Schönen Abend noch.
Gruss
Günter

Rückfrage: Alte Bilder vor Neueinfügung löschen

Beate

Hallo Rainer,
ich finde deine Lösung ganz interessant, habe sie mir in ein Worksheet_Change Makro umgebaut:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$7" Then
Dim myImage As String
myImage = Range("H7").Value
ActiveSheet.Pictures.Insert("F:\temp\grafik\" & myImage).Select
'Platzierung des Bildes
With Selection
.ShapeRange.IncrementLeft 100.25
.ShapeRange.IncrementTop 100.25
End With
End If
End Sub

Gerne würde ich aber vor Neueinfügung eines Bildes das Vorherige dort löschen, sonst stapeln sie sich ja. Hiermit geht es, aber es löscht alle Objekte in der Tabelle, deshalb unerwünscht: ActiveSheet.DrawingObjects.Delete
Und das vorherige Bild markieren und entfernen, funzt ja auch nicht, heißt ja immer verschieden,z.B.: ActiveSheet.Shapes("Picture 8").Cut
Hast du (oder jemand sonst) ein Idee, wie man es killen kann?
Gruß,
Beate

AW: Rückfrage: Alte Bilder vor Neueinfügung lösche

Ramses

Hallo Beate
Günther hat leider den Thread neu aufgemacht ( 2 weiter oben )
Dort ist auch gleich die Antwort auf deine, danach gelesene ;-)) , Frage.
Gruss Rainer

Alternative: Image aus der Steuerelemnt-Toolbox

Beate

Hallo Rainer,
danke für den Hinweis, werde es mal einbauen.
Fand zwischenzeitlich einen interessanten Thread (von GraFi), der anders funktioniert:
https://www.herber.de/forum/archiv/412to416/t413552.htm#413552
>Erstelle ein Image aus der Steuerelemnt-Toolbox. Dann mit
>Worksheets(1).imgLogo.Picture = LoadPicture(PfadName)
>kann man Bilder bequem laden, ohne das ein neues erzeugt wird.
Hier der Code für Änderung in Zelle K1, K2 und K3:


Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target
Case Cells(1, 11)
Worksheets(1).imgLogo.Picture = LoadPicture("D:\Test1.gif")
Case Cells(2, 11)
Worksheets(1).imgLogo.Picture = LoadPicture("D:\Test2.gif")
Case Cells(3, 11)
Worksheets(1).imgLogo.Picture = LoadPicture("D:\Test3.gif")
End Select
End Sub

Liest sich ja ganz gut, ich möchte aber die Grafik vom Zellinhalt einer Zelle bei Änderung abhängig machen. Müßte ich in Kombination mit deiner Vorlage ja hinkriegen.
Gruß,
Beate

AW: Alternative: Image aus der Steuerelemnt-Toolbo

Ramses

Hallo
Im Prinzip funktioniert das ähnlich.
Hier hast du lediglich einen PictureFrame ständig auf der Tabelle.
Ob du das Bild nun lädst, oder nur ein neues ZUM ANZEIGEN zuweist, ist Jacke wie Hose :-)
Es muss auf jeden Fall in den Speicher geladen werden .-)
Bei meiner Variante wird das Bild geladen, und das Bild wird entsprechend positioniert.
Das fällt beim PictureFrame weg.
So oder so,... Hauptsache es funktioniert ;-)
Gruss Rainer

Alternative: Image aus der Steuerelemnt-Toolbo

Beate

Hallo Rainer,
ja, ist mir klar, dass das Ergebnis am langen Ende gleich ist (bis auf die dauernde Anwesenheit des Picture Frame). Ich finde den Code nur übersichtlicher (wenn man es nicht so drauf hat in VBA).
Jedenfalls Danke nochmal für deine Hilfe.
Gruß,
Beate

AW: Alternative: Image aus der Steuerelemnt-Toolbo

17.12.2004 05:39:40

Günter

Hallo!
Ich danke Euch allen.
Hatte leider einen neuen Threat aufgemacht.
Pure Verzweiflung...
Dank und Gruß
Günter

Beispieldatei: Image aus der Steuerelement-Toolbo

Beate

Hallo,
ich habe mal so eine Beispieldatei gebastelt, findet sich hier (für spätere Suche):
http://www.excel-center.de/foren/read.php?4,2816,5234#msg-5234
Gruß,
Beate

Beliebteste Forumthreads (12 Monate)

Forumthread: Bilder darstellen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread