Anzeige
Archiv - Navigation
1500to1504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Bild einfügen in anderes Tabellenblatt
30.06.2016 11:28:37
Rene
HAllo zusammen,
bei mir kommt immer eine Fehlermeldung, ich habe ein Button in Tabelle "Plan" und er soll in Tabelle "Neues_Layout" switchen und Zelle B9 auswählen aber kommt immer eine Fehlermeldung.
Anbei der Code.
Private Sub CommandButton1_Click()
'Fügt Bilder der Falschachtel ein
Worksheets("Neues_Layout").Range ("B9")
On Error Resume Next
Dim ObjektDLG As Dialog
Set ObjektDLG = Application.Dialogs(xlDialogInsertPicture)
ObjektDLG.Show
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 378
Selection.ShapeRange.Width = 378
Selection.ShapeRange.ZOrder msoSendToBack
Selection.ShapeRange.Rotation = 0#
ActiveSheet.Shapes.Range("b9").Select
End Sub
Ich hoffe ich kann wieder auf eure Unterstützung hoffen :()
lg
Rene

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild einfügen in anderes Tabellenblatt
30.06.2016 13:01:29
ChrisL
Hi René
Die Tabelle muss vorher aktiviert und dann die Zelle selektiert werden.
Worksheets("Neues_Layout").Activate
Worksheets("Neues_Layout").Range("B9").Select
Hier ohne Error Handling:
Private Sub CommandButton1_Click()
With Worksheets("Neues_Layout")
.Activate
.Range("B9").Select
If Application.Dialogs(xlDialogInsertPicture).Show Then
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Height = 378
.Width = 378
.ZOrder msoSendToBack
.Rotation = 0#
End With
.Range("b9").Select
End If
End With
End Sub

cu
Chris

Anzeige
AW: Bild einfügen in anderes Tabellenblatt
30.06.2016 16:02:05
Rene
Super VIELEN DANK :)

337 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige