Excel VBA：获取形状中心的单元格答案

【问题标题】：Excel VBA: Get cell at center of shapeExcel VBA：获取形状中心的单元格
【发布时间】：2016-08-24 17:49:12
【问题描述】：

我有一些形状（或者更具体地说，下拉列表），它们大致与单个单元格对齐，并且想知道每个形状的单元格位于下面。

我知道有以下成员：

Dim dd As Shape
dd.BottomRightCell
dd.TopLeftCell

获取形状下方的右下角或左上角单元格，但由于形状是手动放置的，并不总是正确对齐（有时右下角接触下方的行，有时左上角接触上方的行，.. .) 这两个值都不可信。

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

【问题讨论】：

标签： excel vba

【解决方案1】：

您可以使用它来找到中心点，我不确定如何根据顶部/左侧位置选择单元格，这是否足够？

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

【讨论】：

谢谢，这至少是我正在寻找的前半部分。也许有人知道如何将这个 x,y 位置转换为实际的单元格？