Eigentlich hatte ich in der Vergangenheit dasselbe Problem. Was für mich am besten funktioniert, ist der folgende VBA-Code. Ich habe die lineare Beziehung nur durch Versuch und Irrtum gefunden.
Der Code funktioniert für einzelne Zellen, aber auch für eine Auswahl. Im letzteren Fall basieren die Quadrate auf der Gesamtbreite oder -höhe der Auswahl.
Sub MakeCellSquareByColumn()
Selection.RowHeight = Selection.Width / Selection.Columns.Count
Selection.ColumnWidth = (((Selection.Width / Selection.Columns.Count) / 0.75 - 5) / 7)
End Sub
Sub MakeCellSquareByRow()
Selection.ColumnWidth = (((Selection.Height / Selection.Rows.Count) / 0.75 - 5) / 7)
Selection.RowHeight = Selection.Height / Selection.Rows.Count
End Sub
Sie können diese Makros in ein Modul setzen und ihnen Schaltflächen in der Schnellzugriffsleiste zuweisen
Beachten Sie, dass die Quadrate (durch eine Änderung der Spaltenbreite) verschwinden, wenn Sie die Schriftart oder -größe ändern. Dies ist auf die Art und Weise zurückzuführen, wie Excel die Spaltenbreite berechnet. Siehe: https://support.microsoft.com/en-us/help/214123/description-of-how-column-widths-are-determined-in-excel