Excel VBA:获取形状中心的单元格

我有几个形状(或更具体的下拉列表),这些形状大致与单个单元格alignment,并且想知道每个单元格位于下面的形状。

我知道有以下成员:

Dim dd As Shape dd.BottomRightCell dd.TopLeftCell 

以获得形状下的右下angular或左上angular的单元格,但是由于形状是手动放置的,并不总是正确alignment(有时右下angular触及下面的行,有时左上angular是上面的行,…)值不能被信任。

我想知道当我看着形状的中心时,我得到了哪个单元格。 有没有办法获得这些信息?

你可以用它来find中心点,我不确定如何根据顶部/左边位置select一个单元格,这是否足够?

 lngLeftCentre = shape.Left + (shape.Width / 2) lngTopCentre = shape.Top + (shape.Height / 2) Debug.Print "Top: " & lngTopCentre Debug.Print "Left: " & lngLeftCentre