EXCEL 整个文件 如何设置为 ”大小和位置随单元格而变“?

hdwjm 2019-03-10 01:27:01
各位高手,需要将整个EXCEL文件设置为”大小和位置随单元格而变“(注:不是插入图片后再另行设置)。即,在插入图片时就能自动调整为”大小和位置随单元格而变“。有哪位高手能指教吗?如能提供整个VBA内容将不胜感激,谢谢!!!
...全文
934 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
柒杉丶 2021-01-13
  • 打赏
  • 举报
回复
解决了吗。。。我现在也需要这个方法
weixin_44814225 2019-03-22
  • 打赏
  • 举报
回复
设置工作表鼠标双击事件:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 Then
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "插入图片"
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "位图文件", "*.jpg;*.png;*.bmp"
If .Show Then
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Target.Left, Target.Top, Target.Width, Target.Height).Select
Selection.Name = "P" & Target.Row
Selection.ShapeRange.Fill.UserPicture .SelectedItems(1)

End If
End With
End If
End Sub
weixin_44814225 2019-03-21
  • 打赏
  • 举报
回复
还可以更简单:
Private Sub Workbook_Open()
Sheets(1).Shapes(1).Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
With Selection.ShapeRange

.LockAspectRatio = msoFalse
.Left = Sheets(1).Range("A1").Left
.Top = Sheets(1).Range("A1").Top
.Width = Sheets(1).Range("A1").Width
.Height = Sheets(1).Range("A1").Height
End With
End Sub
weixin_44814225 2019-03-21
  • 打赏
  • 举报
回复
Private Sub Workbook_Open()
Sheets(1).Shapes(1).Select
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Left = Sheets(1).Range("A1").Left
.Top = Sheets(1).Range("A1").Top
.Width = Sheets(1).Range("A1").Width
.Height = Sheets(1).Range("A1").Height
End With
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sheets(1).Shapes(1).Select
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Left = Sheets(1).Range("A1").Left
.Top = Sheets(1).Range("A1").Top
.Width = Sheets(1).Range("A1").Width
.Height = Sheets(1).Range("A1").Height
End With
End Sub
weixin_41015181 2019-03-14
  • 打赏
  • 举报
回复
引用 1 楼 weixin_41015181的回复:
正是我想了解的,还没解决呢。
如何实现插入的图片透明背景?
weixin_41015181 2019-03-14
  • 打赏
  • 举报
回复
正是我想了解的,还没解决呢。

5,172

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧