HERBERS Excel-Forum - die Beispiele

Thema: Grafik importieren und in Zelle zentrieren

Home

Gruppe

Grafik

Problem

Über die erste Schaltfläche soll die Grafik mit dem in Zelle B1 stehenden Namen in die aktive Zelle eingefügt werden. Über die zweite Schaltfläche soll neu zentriert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub InsertPicture()
   Dim pct As Picture
   Dim iLeft, iTop, iWidth, iHeight
   Dim sFile As String
   sFile = Range("B1").Value
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Grafikdatei wurde nicht gefunden!"
      Exit Sub
   End If
   With ActiveCell
      iLeft = .Left
      iTop = .Top
      iWidth = .Width
      iHeight = .Height
   End With
   Set pct = ActiveSheet.Pictures.Insert(Range("B1").Value)
   pct.Left = iLeft + iWidth / 2 - pct.Width / 2
   pct.Top = iTop + iHeight / 2 - pct.Height / 2
End Sub

Sub CenterPicture()
   Dim pct As Picture
   Dim iLeft, iTop, iWidth, iHeight
   If ActiveSheet.Pictures.Count = 0 Then
      Beep
      MsgBox "Keine Grafikdatei gefunden!"
      Exit Sub
   End If
   With ActiveCell
      iLeft = .Left
      iTop = .Top
      iWidth = .Width
      iHeight = .Height
   End With
   Set pct = ActiveSheet.Pictures(1)
   pct.Left = iLeft + iWidth / 2 - pct.Width / 2
   pct.Top = iTop + iHeight / 2 - pct.Height / 2
End Sub

Beiträge aus dem Excel-Forum zu den Themen Grafik und Grafikimport

Jahresgrafik Grafik - Linie nach unten, Kriterien links
Grafik auf Position bringen Viele Grafiken mit gleicher Größe einfügen
Excel Grafiken nur schwarz/weiss Grafik drucken
Grafik nach Change in Exceltabelle laden Bereich als Grafik speichern
Grafiken kopieren Text und Grafik in Fusszeile
Grafik in der Kopfzeile - OHNE PFADANGABE Grafik, Datenbeschriftung
Linie in einer Grafik ansprechen Grafik positionieren
Linien-Säulen auf zwei Achsen - Grafik Grafik in Zelle einfügen, wie?
mehrere Grafiken aus derselben Pivot Grafik anzeigen - evtl. Reihenfolge ändern?
Grafikobjekt nach Zelleingabe anpassen Grafik in Zellen - Sparklines
Grafik Option Explicit zusweisen Grafik bei Nullen nicht weiterführen
Makro bei Rechtsklick auf Grafik Kontextmenü Grafik
Grafikgröße nach Hyperlink festlegen Grafik Drehmoment Leistung
Grafiken mit Säuledarstellung Dynamische Grafik/Diagramm
Beschriftung bei Bubble-Grafik gestapelte Säulengrafik
Dynamischer Datenbereich bei Grafiken Grafik
Schwellenwert in Excel-Grafik einfügen? wechselnde grafiken abhängig von wert einblenden
Grafik-Spezial Vorschaugrafik
Grafikformat Grafik in Tabelle, abhängig von Zellinhalt
Grafikprogramm über Excel legen Grafik in XLS-Kopfzeile im PPT darstellen
Grafiken aus derselben Pivot Grafik mit selektierten Daten
veränderbare Grafik je nach Datenmenge Formatier. einer Pivot Grafik wird immer Rückges.
Grafik immer aktualisieren mehrere Grafiken aus einer Pivot
verzogene Grafik mit VBA zurücksetzen bestimmte Grafik in Zelle nach löschen
3D-Grafik X-Achsenbeschriftung Grafik beim Öffnen einer Datei