Anzeige
Archiv - Navigation
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Graphiken

Graphiken
13.01.2005 13:33:30
giovanni
Hallo Forum,
habe folgende Knackpunkte wo ich nicht mehr weiter kann:
Eine Baugruppe ist in drei verschiedenen Varianten ausführbar.
Hierzu stehen mir 3 Graphiken zu Verfügung: 1.wmf, 2.wmf und 3.wmf
Wie kann ich es anstellen, dass wenn ich 1 in Zelle A1 reintippe Bild A1 erscheint, bei Eintippen von 2 dieses durch Bild 2 ersetzt wird.
Bilder sind unabhängig von Zellgrösse und Position, sie werden stets bei derselben Breite x und Höhe y eingefügt.
Grafiken sind in Verzeichnis Bilder abgelegt.
Besten und Vielen Dank
gio

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Graphiken
c0bRa
ich hatte vor einiger zeit mal das hier gebastelt:

Private Sub ScrollBar1_Change()
With Worksheets("Tabelle1")
Dim breite
.Activate
.Range("c4").Select
On Error Resume Next    'falls Bild nicht vorhanden!
.Pictures("newImage").Delete
.Pictures.Insert([c2]).Name = "newImage"
.Shapes("newImage").Select
breite = 180 / Selection.ShapeRange.Width 'Breite wird immer auf 180 Pixel gesetzt
Selection.ShapeRange.ScaleWidth breite, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight breite, msoFalse, msoScaleFromTopLeft
On Error GoTo 0
End With
End Sub

in c2 stand damals der bildpfad...
mit

Private Sub Worksheet_Change(ByVal Target As Range)
if Target.Address = "$A$1"
End If
End Sub

sollteste da hin kommen, wo du hinwillst
Anzeige
AW: Graphiken
13.01.2005 14:19:08
giovanni
Danke erstmal, geh jetzt rumbasteln!!!

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige