Thema Datum  Von Nutzer Rating
Antwort
Rot Bild verkleinern!
25.01.2016 17:31:49 Pat12340
NotSolved
25.01.2016 20:30:59 Gast38579
NotSolved

Ansicht des Beitrags:
Von:
Pat12340
Datum:
25.01.2016 17:31:49
Views:
1193
Rating: Antwort:
  Ja
Thema:
Bild verkleinern!

Hallo! 
habe ein kleines Problem mit meinen eingefügten ImageControl!

Über einem Button in einer UserForm kann man ein Bild auswählen und dieses dann in die Tabelle einfügen.

 

Das problem ist aber, dass das Bild dann nicht verkleinert wird, sondern irgendwo ausgeschnitten wird. 

Wäre es irgendwie möglich, dass das Bild automatisch auf die Größe des ImageControl geändert wird??

 

Option Explicit

Sub Test()
    Dim varBild As Variant
    Dim objImg As Object
    varBild = Application.GetOpenFilename(Title:="Select Image To Open")
    If varBild = False Then Exit Sub
    Set objImg = Tabelle2.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
    DisplayAsIcon:=False, Left:=1, Top:=400, Width:=150, Height:=200)
        
    With objImg
        .Name = "Foto"
        .Object.Picture = LoadPicture(varBild)
        End With
        
End Sub

 

Ich hoffe ich hab mich hier jetzt verständlich ausgedrückt. Und bitte habt verständniss...ich bin leider das Opfer meines Chefs und hab mit VBA bis dato noch nicht wirklich viel zum tun gehabt. 

Danke im Vorraus

Mfg


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 Bild verkleinern!
25.01.2016 17:31:49 Pat12340
NotSolved
25.01.2016 20:30:59 Gast38579
NotSolved