Ich habe keine Ahnung, warum ich Laufzeitfehler 424 (Objekt erforderlich) für den Versuch, Bildanzahl = Anzahl in der Zelle festlegen. Jede mögliche Hilfe würdeObjekt erforderlich, obwohl Variable ist Ganzzahl
Public Function InsertPictureInCell() As Object
ImageCount = CInt(sheetImages.Cells(1, 4))
Dim x As Object
sheetImages.Paste
Set x = sheetImages.Shapes(Selection)
x.top = [C4].top
x.Left = [C4].Left
x.Height = [C4].Height
Selection.ShapeRange.IncrementTop [C3].Height * ImageCount
'sheetImages.Shapes(picname).IncrementTop [C3].Height * ImageCount
sheetImages.Cells(ImageCount + 2, 2) = CStr(x.Name)
'sheetProject.Cells(12, 2) = PictureFileName
End Function
geschätzt werden
Aktivieren Sie die Option Explicit am oberen Rand dieses Moduls. Es sieht so aus, als hättest du 'sheetImages' (oder eigentlich * keine * deiner Variablen) nicht deklariert. Abgesehen davon gibt es keine Zuweisung * zu * 'sheetImages', daher wird es als leere Variante initialisiert, wodurch der Fehler 424 ausgelöst wird, wenn Sie ihn wie ein Objekt behandeln, da es kein Objekt ist. –