Thema Datum  Von Nutzer Rating
Antwort
26.09.2016 08:36:43 Phillip
NotSolved
26.09.2016 15:29:38 Gast70117
NotSolved
Rot Bild aus Zwischenablage in Steuerelement
 27.09.2016 07:37:36 Phillip
NotSolved
27.09.2016 09:46:10 Gast1863
NotSolved
28.09.2016 11:01:28 Phillip
Solved

Ansicht des Beitrags:
Von:
Phillip		 Datum:
27.09.2016 07:37:36		 Views:
755		 Rating:
     
Antwort:
  Ja
Thema:
Bild aus Zwischenablage in Steuerelement

Hey, ich habe meine Ansprüche etwas bei Seite geschoben und  das Bild so wie es ist einfliegen lassen, mit folgenden Code:

 

Sub Artikel_einfügen()

Dim Höhe As Integer
Dim Breite As Integer

On Error GoTo Weiter

ActiveSheet.Range("V21").Clear
ActiveSheet.Shapes("Artikel").Delete

Weiter:

On Error GoTo ERRORHANDLER

Sheets("Werkzeugdoku").Range("V21").Select
ActiveSheet.Paste
Set Artikel = Selection
Artikel.Name = "Artikel"
If ActiveSheet.Range("V21").Value = "" Then
    Artikel.Width = 210
    Höhe = Artikel.Height
    Breite = Artikel.Width
        If Höhe / Breite > 0.39 Then
            Artikel.Height = 85
            Breite = Artikel.Width
            PositionLinks = Artikel.Left
            Verschiebung = 106.3 - Breite / 2
            Artikel.Left = Verschiebung + PositionLinks
        End If
Else
    ActiveSheet.Range("V21").Clear
    MsgBox "Es war kein Bild in der Zwischenablage!"
End If

ERRORHANDLER:
If Err <> 0 Then
    MsgBox "Es war kein Bild in der Zwischenablage!"
End If

End Sub

Der Code unterscheidet gleich, ob es sich um einen Text oder ein Bild handelt, da der Text ja in der Breite nicht verändert werden kann. Somit kommt es zu einem ERRROR, der dann mit der MsgBox verknüpft ist.

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
26.09.2016 08:36:43 Phillip
NotSolved
26.09.2016 15:29:38 Gast70117
NotSolved
Rot Bild aus Zwischenablage in Steuerelement
 27.09.2016 07:37:36 Phillip
NotSolved
27.09.2016 09:46:10 Gast1863
NotSolved
28.09.2016 11:01:28 Phillip
Solved