Foxtable(狐表)用户栏目专家坐堂 → [求助]excel 图片尺寸调整代码问题


  共有1777人关注过本帖树形打印复制链接

主题:[求助]excel 图片尺寸调整代码问题

帅哥哟,离线,有人找我吗?
freeants
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:572 积分:3771 威望:0 精华:0 注册:2014/5/8 13:41:00
[求助]excel 图片尺寸调整代码问题  发帖心情 Post By:2016/10/5 8:00:00 [只看该作者]

Dim exa As String

Dim Book As New XLS.Book(ProjectPath & "Attachments\fabricdeveloping.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)

Book.Build() '生成细节区

exa =ProjectPath & "reports\" & Tables("面料开发").current("编号")   & ".xls"
Book.Save(exa)

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(exa)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rng As MSExcel.Range
Dim Pic As MSExcel.shape

For Each Pic In ws.shapes
    On Error Resume Next
    
    rng = pic.TopLeftCell                     
     With Pic
             If .Height / .Width > rng.Height / rng.Width Then
             .Height = rng.Height - 5
             .Top = rng.Top + 2.5
             .Left = rng.Left + (rng.Width - .Width) / 2
          '   .Placement = xlMoveAndSize                  
         Else
             .Width = rng.Width - 5
             .Left = rng.Left + 2.5
             .Top = rng.Top + (rng.Height - .Height) / 2
          '   .Placement = xlMoveAndSize
        End If
    End With
Next
App.Visible = True
////////////////////////////////////////////////////////////

以上代码作用是在excel里面单元格里面放入的照片,根据单元格大小自动缩放大小, 其中 xlMoveAndSize  在VBA里面可以用,但是在foxtable里面无法运行,请问如何写

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2016/10/5 9:04:00 [只看该作者]

.Placement = 1

 回到顶部
帅哥哟,离线,有人找我吗?
湛江智
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(狐狸爸爸).Placement = 1  发帖心情 Post By:2018/4/20 16:25:00 [只看该作者]

老大,上面的代码放在哪个事件里?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/20 16:28:00 [只看该作者]

写在一个按钮里面调用。

 回到顶部