ich habe weiter unten eine Anfrage ......

Forumthread: ich habe weiter unten eine Anfrage ......
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: ich habe weiter unten eine Anfrage ......

25.01.2005 20:22:16

Gast

Hallo nochmal,
ich habe weiter unten eine Anfrage zum Thema "Bild in Zelle / Bild aus der Zelle?"
Ist da keine Hilfe möglich? Muss sonst die Ganze Datei neu aufbauen :-(((
28 MB ist einfach zu groß.
Gruß / Gast

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ich habe weiter unten eine Anfrage ......

25.01.2005 20:32:36

Josef
Danke Sepp!

25.01.2005 20:59:32

Gast
Hallo Sepp.. was muss ich anstellen...

25.01.2005 21:10:36

Gast
AW: Hallo Sepp.. was muss ich anstellen...

25.01.2005 23:10:02

Josef
Danke Sepp.....

25.01.2005 23:30:42

Gast

AW: ich habe weiter unten eine Anfrage ......

25.01.2005 20:32:36

Josef

Hallo Peter!
Wechsle in den Bearbeitungsmodus (Geodreieck auf der Steuerelementleiste),
dann kannst du die Bilder anklicken und löschen!
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!

Danke Sepp!

25.01.2005 20:59:32

Gast

Danke Sepp,
ich bin erleichter, die Datei hat jetzt nut noch 380 KB :-)))))
Gruß / Gast

Hallo Sepp.. was muss ich anstellen...

25.01.2005 21:10:36

Gast

Hallo Sepp,
was muss ich tun um auf die gleiche Art ein Bild aus der gleichen Arbeitsmappe, genauso fest in einer Zelle zu verankern?
Also das Bild ist in der Tabelle "Menue" hinterlegt und soll in der Tabellen "Baumaßnahme 1, oder Baumaßnahme 2 unsw. jeweils in die Zelle ("A1") eingefügt werden?
Ich hoffe nicht zu viel zu bitten.........
Gruß / Gast

AW: Hallo Sepp.. was muss ich anstellen...

25.01.2005 23:10:02

Josef

Hallo Fritz!
Ich ürde auf das Image-Steuerelement verzichten und das Bild so einfühen.

Sub kopiereBild()
Dim shp As Shape
Dim wks As Worksheet
Set shp = Sheets("Menue").Shapes("Picture 1") 'Name anpassen
shp.Copy
   For Each wks In ThisWorkbook.Worksheets
      If wks.Name Like "Baumaßnahme*" Then
      wks.Paste
         With wks.Shapes(wks.Shapes.Count)
         .Top = Range("A1").Top
         .Left = Range("A1").Left
         .OnAction = "dummy"
         End With
      End If
   Next
End Sub
Private Sub dummy()
End Sub
P.S.: Rückmeldung nicht vergessen!