Thema Datum  Von Nutzer Rating
Antwort
Rot Bilder in Excelsheet per Makro einfügen
 12.04.2019 19:36:26 Jerome
NotSolved
12.04.2019 19:48:00 Gast77262
Solved
12.04.2019 21:53:20 Jerome
NotSolved

Ansicht des Beitrags:
Von:
Jerome		 Datum:
12.04.2019 19:36:26		 Views:
944		 Rating:
     
Antwort:
  Ja
Thema:
Bilder in Excelsheet per Makro einfügen

Hallo zusammen,

ich habe ein Excel-Sheet in welches Bilder in einen bestimmten Rahmen (verbundene Zellen als "Picture4" definiert) eingepasst werden sollen. Das bekomme ich über folgende Code (Beispielhaft für Bild 4) hin:

 

Private Sub CommandButton4_Click()
'open insert picture dialog
    Application.Dialogs(xlDialogInsertPicture).Show
        With Selection.ShapeRange
         .LockAspectRatio = False
         .Top = Range("Picture4").Top
         .Left = Range("Picture4").Left
         .Height = Range("Picture4").Height
         .Width = Range("Picture4").Width
        End With
'open inputBox with Dialog for figure caption
    Dim eingabe As String
        eingabe = InputBox("Please insert a picture caption")
'transfer data zu caption
            Range("Caption4").Value = "Fig. 4: " & eingabe

End Sub

 

Ich habe jedoch acht von diesen Bilderrahmen auf einer Seite. Gibt es eine Möglichkeit nur einen Code zu verwenden anstatt diesen acht mal einzugeben? Das alle CMD-Buttons sozusagen auf das selbe Makro zurückgreifen und nur aufgrund des betätigten CMD-Buttons das Bild korekkt zugeordnet wird?

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 Bilder in Excelsheet per Makro einfügen
 12.04.2019 19:36:26 Jerome
NotSolved
12.04.2019 19:48:00 Gast77262
Solved
12.04.2019 21:53:20 Jerome
NotSolved