Bild in Zellenmitte einfügen

[Primo Centurio]

Hallo zusammen

Ich würde gerne ein Bild von Tabellenblatt 2 in die Aktive Zelle auf Tabellenblatt 1 einfügen.
Dabei soll das Bild in die Zellenmitte eingefügt werden.

Muss ich hier mit einer Objektvariablen arbeiten und dann mit der With-Anweisung arbeiten?

Das einfügen kriege ich mit dem folgenden Code problemlos hin

Code:

    Worksheets("Tabelle2").Activate
    Worksheets("Tabelle2").Shapes.Range(Array("7032")).Select
    Selection.Copy
    Sheets("Tabelle1").Activate
    ActiveCell.PasteSpecial

Danke schonmal im voraus.

LG Primo

[juvee]

Hallo,

Zellen und Shapes haben die Eigenschaften Top, width, height und left.

Damit kannst du den Zielort berechnen und  folgerichtig dein Bild exakt positionieren

VG Juvee

[DIZA]

Hallo Primo,

z.B. so

Code:

Sub BildZentrieren()
  Dim vSel As Variant
  Dim rngZ As Range
  Set vSel = Selection
  If VarType(vSel) = vbObject Then
    With vSel
      Set rngZ = .TopLeftCell
      .Top = rngZ.Top + (rngZ.Height - .Height) / 2
      .Left = rngZ.Left + (rngZ.Width - .Width) / 2
      .ShapeRange.LockAspectRatio = -1
      .Placement = xlMoveAndSize
      .PrintObject = True
    End With
SendKeys ("{ESC}")
  End If
End Sub

[Primo Centurio]

Danke euch zwei 

Genau Dirk, habe mir schon gedacht, dass es so gehen müsste, habe es aber nicht ganz hingekriegt, hatte es falsch deklariert :S

Euch noch einen schönen Abend.

LG Primo

[snb]

Code:

Sub M_snb()
  Sheet1.Shapes(1).Copy
  Sheet2.Paste Sheet2.Cells(4, 5)
  With Sheet2.Shapes(1)
    .Top = .TopLeftCell.Top + (.TopLeftCell.Height - .Height) / 2
    .Left = .TopLeftCell.Left + (.TopLeftCell.Width - .Width) / 2
    End With
End Sub

[RPP63]

Moin!
Ich mag diese "Vermüllung" mit Shapes nicht!
Excel ist ja mit =BILD() auf dem richtigen Weg.
Wenn jetzt auch eine lokale Adresse akzeptiert würde, wären wir ja (für diesen nicht unüblichen Bildkatalog) auf dem richtigen Weg.

Two Cents,
Ralf

[vonSchauan]

Hallo,

wenn man die Bilder extern ablegen kann und ein Aufruf reicht, dann kann man das auch mit einem Hyperlink bzw. einer Hyperlinkformel machen.

[snb]

@RPP

Das Bild (Shapes)  'Layer' scheint mir unabhänglich vom Zellen (Cells) 'Layer' zu sein.
Scheint mir auch logisch.

Auch ungefähr 2 obsolete cents (die wir gar nicht mehr benützen).

[RPP63]

Auch ungefähr 2 obsolete cents (die wir gar nicht mehr benützen).

Da seid ihr uns weit voraus!
Ich habe gerade noch 7 einzelne Cents im Supermarkt mit meinen kleinen Größe 12 - Händen herausgesucht.
Aber ich habe gelesen, dass ihr endlich Pfand auf die Blikjes erheben wollt.
Ich habe vor etlichen Jahren mit Lachen im Gesicht die Blikje Cola nach dem Genuss von gefrituurde vis zerquetscht und in den Müll geworfen …

[snb]

Glücklicherweise in die Müll und nicht in die 'Natur' (die es hier kaum mehr gibt).
Cola und 'gefrituurde vis': brrrrr