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:
22
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 genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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