Thema Datum  Von Nutzer Rating
Antwort
13.08.2014 18:27:34 Lisa
NotSolved
Blau Bild laden in Zelle
 13.08.2014 19:14:04 Amicro2000
NotSolved

Ansicht des Beitrags:
Von:
Amicro2000		 Datum:
13.08.2014 19:14:04		 Views:
683		 Rating:
     
Antwort:
  Ja
Thema:
Bild laden in Zelle

Hallo Lisa,

Nimm diesen code:

 

Public Sub Test()
    Call Bild_laden(ActiveSheet, Range("F10"), "Bildpfad")
End Sub

Public Sub Bild_laden(WS As Worksheet, rng As Range, Pfad As String)
    Dim Picture As Object
    
    Set Picture = WS.Pictures.Insert(Pfad)
    
    With Picture
        .Name = rng.Address & "_" & .Name
        .Left = rng.Left
        .Top = rng.Top
        Call Maß(Picture, 200)
    End With
End Sub

Sub Maß(SH As Object, Optional Höhe As Double, Optional Breite As Double)
    Dim V As Double
    
    With SH
        If .Height > .Width Then
            V = .Height / .Width
            
            If Höhe = 0 Then
                .Width = Breite
                .Height = Breite * V
            Else
                .Height = Höhe
                .Width = Höhe / V
            End If
        Else
            V = .Width / .Height
            
            If Höhe = 0 Then
                .Width = Breite
                .Height = Breite / V
            Else
                .Height = Höhe
                .Width = Höhe * V
            End If
        End If
    End With
End Sub

und schreib im Sub Test dort wo steht Bildpfad einen Bilderpfad rein und starte das Sub Test.

in diesem fall wird in das aktuelle Tabellenblatt in F10 das Bild eingefügt, es wird auch noch das Bild auf eine Höhe von 200 punkten im verhältnis verkleinert.

Diese verkleinerung kann man auch der Breite nach oder an eine Zelle anpassen, egal ob Höhe oder Breite der Zelle.

 

Probiere es aus.

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
13.08.2014 18:27:34 Lisa
NotSolved
Blau Bild laden in Zelle
 13.08.2014 19:14:04 Amicro2000
NotSolved