Thema Datum  Von Nutzer Rating
Antwort
Rot Grafiken per VBA in Excel zentrieren
 28.04.2015 10:34:22 Caro
NotSolved

Ansicht des Beitrags:
Von:
Caro		 Datum:
28.04.2015 10:34:22		 Views:
1962		 Rating:
     
Antwort:
  Ja
Thema:
Grafiken per VBA in Excel zentrieren

Hallo zusammen,

ich bräuchte kurz eure Hilfe. Meine Ausgangslage: Über Dropdownfelder kann ich bestimmte Begriffe auswählen. Dazu passend werden Bilder unterhalb eingefügt. Diese sind jedoch unterschiedlich groß, weshalb ich mehrere Zellen verbunden habe. Soweit funktioniert auch alles. Nur möchte ich die Bilder gerne zentriert haben.

Da ich von VBA recht wenig Ahnung habe, komme ich im Moment nicht weiter. Müsste man beim Teil mit Selection evtl. eine Schleife einbauen, da er Größe und Position des Bildes beim letzten ändert und bei den vorherigen nicht? Wenn ja, wie?

Wär Klasse wenn ihr mir weiterhelfen könntet. Vielen Dank im Voraus.

 

Private Sub Worksheet_Calculate()
Dim Picture As Shape
Application.ScreenUpdating = False

'KlT
Sheets("Expert-Modus").Range("E50").ClearContents

'GLT
Sheets("Expert-Modus").Range("G49:I51").ClearContents

'UV
Sheets("Expert-Modus").Range("J49:L51").ClearContents
Sheets("Expert-Modus").Range("J55:L58").ClearContents
Sheets("Expert-Modus").Range("J62:L65").ClearContents
Sheets("Expert-Modus").Range("J69:L72").ClearContents
Sheets("Expert-Modus").Range("J76:L79").ClearContents
Sheets("Expert-Modus").Range("J83:L86").ClearContents

'Schleife um alle Bilder im Blatt "Personaldatenblatt" zu löschen
For Each Picture In Sheets("Expert-Modus").Shapes
    If Picture.Type = 13 Then
        With Picture
        .Delete
        End With
    End If
Next

'KLT
'Bild dessen Namen in Zelle E95 steht kopieren...
Sheets("Bilder").Shapes(Sheets("Expert-Modus").Range("E95")).Copy
'...und in Zelle E50 einfügen
Sheets("Expert-Modus").Range("E50").PasteSpecial Paste:=xlPasteValues

'GLT
Sheets("Bilder").Shapes(Sheets("Expert-Modus").Range("G95")).Copy
Sheets("Expert-Modus").Range("G49:I51").PasteSpecial Paste:=xlPasteValues

'UV
Sheets("Bilder").Shapes(Sheets("Expert-Modus").Range("J95")).Copy
Sheets("Expert-Modus").Range("J49:L51").PasteSpecial Paste:=xlPasteValues

Sheets("Bilder").Shapes(Sheets("Expert-Modus").Range("J96")).Copy
Sheets("Expert-Modus").Range("J55:L58").PasteSpecial Paste:=xlPasteValues

Sheets("Bilder").Shapes(Sheets("Expert-Modus").Range("J97")).Copy
Sheets("Expert-Modus").Range("J62:L65").PasteSpecial Paste:=xlPasteValues

Sheets("Bilder").Shapes(Sheets("Expert-Modus").Range("J98")).Copy
Sheets("Expert-Modus").Range("J69:L72").PasteSpecial Paste:=xlPasteValues

Sheets("Bilder").Shapes(Sheets("Expert-Modus").Range("J99")).Copy
Sheets("Expert-Modus").Range("J76:L79").PasteSpecial Paste:=xlPasteValues

Sheets("Bilder").Shapes(Sheets("Expert-Modus").Range("J100")).Copy
Sheets("Expert-Modus").Range("J83:L86").PasteSpecial Paste:=xlPasteValues

  With Selection
    .ShapeRange.LockAspectRatio = False
    .ShapeRange.Height = 500 'Bildhöhe
    .ShapeRange.Width = 1000  'Bildbreite
    .ShapeRange.Left = 350
    .ShapeRange.Top = 0


End With
Exit Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Grafiken per VBA in Excel zentrieren
 28.04.2015 10:34:22 Caro
NotSolved