Thema Datum  Von Nutzer Rating
Antwort
17.08.2020 11:37:55 Lance
NotSolved
Blau Bild in UserForm laden und in Tabelle einfügen
 17.08.2020 12:37:18 volti
*****
NotSolved
17.08.2020 14:15:08 Gast48582
NotSolved
17.08.2020 14:28:23 volti
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
17.08.2020 12:37:18		 Views:
740		 Rating:
     
Antwort:
  Ja
Thema:
Bild in UserForm laden und in Tabelle einfügen

Hallo Lnce,

 

hier eine Idee, das Bild in eine bestimmte Zelle zu platzieren. Bezgl. der Einpassung des Bildes kannst Du noch etwas tüfteln, welches am besten passt. 

Sub BildEinfügenButton_Click()
 
 With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Einfügen"
        .Title = "Bitte einzufügendes Bild auswählen"
        .Filters.Clear
        .Filters.Add "JPG", "*.JPG"
        .Filters.Add "JPEG File Interchange Format", "*.JPEG"
        .Filters.Add "Graphics Interchange Format", "*.GIF"
        .Filters.Add "Portable Network Graphics", "*.PNG"
        .Filters.Add "Tag Image File Format", "*.TIFF"
        .Filters.Add "All Pictures", "*.*"
 
        If .Show = -1 Then
            Dim img As Object
            Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))
 
            'Set image sizes
            With ActiveSheet.Range("C3") 'Hier die Zelle angeben
              img.Top = .Top
              img.Left = .Left
              
              If .Width > .Height Then
                 img.Height = .Height
             
              Else
                 img.Width = .Width
                
              End If

            End With
        Else
            MsgBox ("Cancelled.")
        End If
    End With
 
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
17.08.2020 11:37:55 Lance
NotSolved
Blau Bild in UserForm laden und in Tabelle einfügen
 17.08.2020 12:37:18 volti
*****
NotSolved
17.08.2020 14:15:08 Gast48582
NotSolved
17.08.2020 14:28:23 volti
NotSolved