Thema Datum  Von Nutzer Rating
Antwort
02.02.2021 20:45:11 Christoph
NotSolved
Blau Bilder einfügen
 02.02.2021 23:01:51 volti
Solved
03.02.2021 08:38:45 Christoph
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
02.02.2021 23:01:51		 Views:
670		 Rating:
     
Antwort:
 Nein
Thema:
Bilder einfügen

Hallo Christoph,

hier ein Beispiel, wie ein in die Zwischenablage kopiertes Bild in eine Zelle eingefügt wird und im Feld zentriert eingepasst wird.

Kannst Du ja ggf. an Deine Wünsche anpassen. Ziel kann sein, ein vorgebenes Range oder die aktive Zelle.

Probiere es mal aus:

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23		  
Sub TestBildEinfuegen1()
' Kopiertes Bild aus Ziwschenablage formatieren
  Bild_einfügen_und_Zentrieren Worksheets("Ziel").Range("C29")
Rem  Bild_einfügen_und_Zentrieren Selection
End Sub

Sub Bild_einfügen_und_Zentrieren(Optional AC As Range)
' Bild aus Zwischenablage einfügen und in Zelle/Bereich zentrieren
  If AC Is Nothing Then Set AC = ActiveCell
  ActiveSheet.Paste
  If TypeName(Selection) = "Picture" Then
     With Selection.ShapeRange
         .LockAspectRatio = True
         If (.WIDTH / AC.WIDTH) < (.HEIGHT / AC.HEIGHT) Then
            .HEIGHT = AC.HEIGHT  ' Bild höher als breit
         Else
            .WIDTH = AC.WIDTH
         End If
         .Left = AC.Left + ((AC.WIDTH - .WIDTH) \ 2)
         .Top = AC.Top + ((AC.HEIGHT - .HEIGHT) \ 2)
     End With
  End If
End Sub
_________
viele Grüße
Karl-Heinz

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
02.02.2021 20:45:11 Christoph
NotSolved
Blau Bilder einfügen
 02.02.2021 23:01:51 volti
Solved
03.02.2021 08:38:45 Christoph
NotSolved