Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Funktion: Bild positionieren
08.05.2014 15:24:43 VBA02
NotSolved
08.05.2014 17:27:45 Gast28949
NotSolved
09.05.2014 07:45:00 Gast93436
NotSolved
09.05.2014 14:41:02 Gast21931
NotSolved
12.05.2014 08:09:51 Gast80021
NotSolved
12.05.2014 13:32:47 Gast67377
NotSolved
15.05.2014 07:34:35 VBA02
NotSolved

Ansicht des Beitrags:
Von:
VBA02
Datum:
08.05.2014 15:24:43
Views:
1166
Rating: Antwort:
  Ja
Thema:
VBA Funktion: Bild positionieren

ich habe den folgenden Sub und möchte es in eine Funktion umwandeln, bekomme es aber iwie nicht hin :(

Die Eigabe Parameter sollen sein: Pfad, woher man das Bild bekommen soll (hier:MeinBild) , Bereich, wo das Bild hin soll (hier:ZielBereich)

Für eure Hilfen bin ich Dankbar.

 

Sub Bild
   
    Dim MeinBild As Object, ZielBereich As Range
    Dim Rand As Single
   
    'Bild Basismaterial
    Set MeinBild = Worksheets("Tabelle1").Pictures.Insert("C:\Bild.png")
    Set ZielBereich = Worksheets("Tabelle1").Range("B37:R42")

    With MeinBild.ShapeRange
        .Top = ZielBereich.Top + Rand
        .Left = ZielBereich.Left + Rand
        .Height = ZielBereich.Height - Rand
    End With
   
    Set MeinBild = Nothing: Set ZielBereich = Nothing
   
End Sub


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 VBA Funktion: Bild positionieren
08.05.2014 15:24:43 VBA02
NotSolved
08.05.2014 17:27:45 Gast28949
NotSolved
09.05.2014 07:45:00 Gast93436
NotSolved
09.05.2014 14:41:02 Gast21931
NotSolved
12.05.2014 08:09:51 Gast80021
NotSolved
12.05.2014 13:32:47 Gast67377
NotSolved
15.05.2014 07:34:35 VBA02
NotSolved