sub auto_open()
Dim s as shape
On error resume next
For each s in ActiveSheet.Shapes
s.Placement=xlMoveandSize
Next
end sub
Hallo yuna,
im Brett visualbasic schreibst du dieses makro würde es lösen dass man Zellen mit Kommentaren nicht automatisch in der Breite ändern7einstellen kann o.ä.
Ich habe es jetzt nicht probiert, sehe da aber keinen Zusammenhang zwischen deinem Code und Zellen mit Kommentaren.
Vielleicht hilft dir mein Code. Er setzt bei allen xls-Dateinen (egal ob neu oder schon vorhanden) beim Öffnen einen Verweis. Leider habe ich von Klassenmodulen null Plan und kann ihn dir nicht anpassen sodas er bei allen Dateien s.Placement=xlMoveandSize durchführt.
Erstelle ein Klassenmodul namens AppEventsClass , in dieses kommt:
Option Explicit
Public WithEvents xlApp As Excel.Application
Private Sub Class_Initialize()
Set xlApp = Application
End Sub
Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook)
On Error Resume Next
Application.VBE.ActiveVBProject.References.AddFromFile „fm20.dll“
'Application.VBE.ActiveVBProject.References.AddFromFile _
'„c:\programme\microsoft office\office\makro\solver\solver.xla“
End Sub
Dann erstelle Modul1, dahinein kommt:
Option Explicit
Public xlEvents As New AppEventClass
Private Declare Function GetDesktopWindow Lib „user32“ () As Long
Private Declare Function GetWindow Lib „user32“ (ByVal hwnd As Long, _
ByVal wCmd As Long) As Long
Private Declare Function GetClassName& Lib „user32“ Alias _
„GetClassNameA“ (ByVal hwnd As Long, ByVal lpClassName _
As String, ByVal nMaxCount As Long)
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
Da meine personl.xls Testwiese ist und sehr viel beinhaltet, sind sicher viele der Codezeilen unnötig. Teste halt rum und wirf sie dann raus und bastle das Klassenmodul so um dass es macht was du möchtest.
Gruß
Reinhard
Dieses Makro funktioniert in dieser Datei einwandfrei.
Nun wollte ich diese Excel Datei als Add-in abspeichern, damit
dieses Makro in jeder neuen Exceldatei sofort aufgeführt wird.
Leider funktioniert es in neuen Dateien in die ich dieses
Add-in eingebunden habe nich mehr. In der Zeile „For each s in
activeSheet.shapes“ kommt die Fehlermeldung: „Objektvariable
oder With-Blockvariable nicht festgelegt“.
Für ein Lösung wäre ich sehr dankbar,
yuna