如何将excel的“批注框”宽度设置成与背景图片的宽度一致? 30
求EXCEL高手帮忙解决,下面是用宏做的,自动添加批注的背景图片。Sub添加图片批注()Dim单元格OnErrorResumeNextForEach单元格InSelect...
求EXCEL高手帮忙解决,下面是用宏做的,自动添加批注的背景图片。
Sub 添加图片批注()
Dim 单元格
On Error Resume Next
For Each 单元格 In Selection
单元格.AddComment
单元格.Comment.Shape.Fill.UserPicture ActiveWorkbook.Path & "\image\" & 单元格.Value & ".jpg"
单元格.Selection.ShapeRange.Fill.Visible = msoTrue
单元格.Comment.Shape.Height = 320
单元格.Comment.Shape.Width = 300
Next 单元格
End Sub
我希望下面的长度和宽度,设置和粘贴的图片一样大小。
单元格.Comment.Shape.Height = 320
单元格.Comment.Shape.Width = 300
试验过 .Shape.TextFrame.AutoSize ,但是没有效果,这个是根据批准框内的文字进行自动调整的。 展开
Sub 添加图片批注()
Dim 单元格
On Error Resume Next
For Each 单元格 In Selection
单元格.AddComment
单元格.Comment.Shape.Fill.UserPicture ActiveWorkbook.Path & "\image\" & 单元格.Value & ".jpg"
单元格.Selection.ShapeRange.Fill.Visible = msoTrue
单元格.Comment.Shape.Height = 320
单元格.Comment.Shape.Width = 300
Next 单元格
End Sub
我希望下面的长度和宽度,设置和粘贴的图片一样大小。
单元格.Comment.Shape.Height = 320
单元格.Comment.Shape.Width = 300
试验过 .Shape.TextFrame.AutoSize ,但是没有效果,这个是根据批准框内的文字进行自动调整的。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询