word如何設定圖片大小

misser wrote:
報告樓主~如果是每格...(恕刪)

anson_830701 wrote:
有些照片橫向拍攝到電腦會跑掉，所以我也會把他旋轉成原本方向，在進行插入。

anson_830701 wrote:
第二格通常是施工中及材料的照片

misser wrote:
呃，惡大，您有開樓主後來的影片來看？影片裡面有說啦，呵(第2列一定是2張)

misser wrote:
樓主這句話的意思是？(恕刪)

惡魔印記666 wrote:
我演示的排版軟體是photocap
不用錢
如果固定格式
第一行一張第二行兩張
一頁A4看要容納幾行自己決定
可以把做好的模板存起來
以後只要帶入模板在依序圈選要加入的圖片

misser wrote:
所以以惡大提供的方案(恕刪)

Sub 巨集1()
 '插入大張
 h_f = 240  '高度
 w_f = 500  '寬度
 '開啟[讀取檔案]視窗
 Set dlgOpen = Application.FileDialog(FileDialogType:=msoFileDialogOpen)
 With dlgOpen
    .AllowMultiSelect = False  '設定只能單選一張照片
    .Filters.Add "照片", "*.jpg*", 1  '預設篩選jpg
    If .Show = -1 Then
            '如果按下確定
            For Each vrtSelectedItem In .SelectedItems
                path_f = vrtSelectedItem '取得檔案位置名稱
            Next
            '如果按下取消
          Else
            Exit Sub
    End If
 End With
 '插入照片
 With Selection.InlineShapes.AddPicture(FileName:=path_f, LinkToFile:=False, SaveWithDocument:=True)
    .LockAspectRatio = msoFalse  '不鎖定長寬比
    .Height = h_f  '設定高度
    .Width = w_f   '設定寬度
 End With
End Sub
Sub 巨集3()
'插入小張
 h_f = 240  '高度
 w_f = 250  '寬度
 '開啟[讀取檔案]視窗
 Set dlgOpen = Application.FileDialog(FileDialogType:=msoFileDialogOpen)
 With dlgOpen
    .AllowMultiSelect = False  '設定只能單選一張照片
    .Filters.Add "照片", "*.jpg*", 1  '預設篩選jpg
    If .Show = -1 Then
            '如果按下確定
            For Each vrtSelectedItem In .SelectedItems
                path_f = vrtSelectedItem '取得檔案位置名稱
            Next
            '如果按下取消
          Else
            Exit Sub
    End If
 End With
 '插入照片
 With Selection.InlineShapes.AddPicture(FileName:=path_f, LinkToFile:=False, SaveWithDocument:=True)
    .LockAspectRatio = msoFalse  '不鎖定長寬比
    .Height = h_f  '設定高度
    .Width = w_f   '設定寬度
 End With
End Sub

misser wrote:
想說，還是花一點點時(恕刪)

Sub 巨集1()
 '插入大張
 h_f = Selection.Range.Cells(1).Height - 10 '高度=表格格子高度-10
 w_f = Selection.Range.Cells(1).Width - 10  '寬度=表格格子寬度-10
 
 '開啟[讀取檔案]視窗
 Set dlgOpen = Application.FileDialog(FileDialogType:=msoFileDialogOpen)
 With dlgOpen
    .AllowMultiSelect = False  '設定只能單選一張照片
    .Filters.Add "照片", "*.jpg*", 1  '預設篩選jpg
    If .Show = -1 Then
            '如果按下確定
            For Each vrtSelectedItem In .SelectedItems
                path_f = vrtSelectedItem '取得檔案位置名稱
            Next
            '如果按下取消
          Else
            Exit Sub
    End If
 End With
 '插入照片
 With Selection.InlineShapes.AddPicture(FileName:=path_f, LinkToFile:=False, SaveWithDocument:=True)
    .LockAspectRatio = msoFalse  '不鎖定長寬比
    .Height = h_f  '設定高度
    .Width = w_f   '設定寬度
 End With
End Sub
Sub 巨集3()
'插入小張
 h_f = Selection.Range.Cells(1).Height - 10       '高度=表格格子高度-10
 w_f = (Selection.Range.Cells(1).Width - 10) / 2  '寬度=(表格格子寬度-10)/2
 '開啟[讀取檔案]視窗
 Set dlgOpen = Application.FileDialog(FileDialogType:=msoFileDialogOpen)
 With dlgOpen
    .AllowMultiSelect = False  '設定只能單選一張照片
    .Filters.Add "照片", "*.jpg*", 1  '預設篩選jpg
    If .Show = -1 Then
            '如果按下確定
            For Each vrtSelectedItem In .SelectedItems
                path_f = vrtSelectedItem '取得檔案位置名稱
            Next
            '如果按下取消
          Else
            Exit Sub
    End If
 End With
 '插入照片
 With Selection.InlineShapes.AddPicture(FileName:=path_f, LinkToFile:=False, SaveWithDocument:=True)
    .LockAspectRatio = msoFalse  '不鎖定長寬比
    .Height = h_f  '設定高度
    .Width = w_f   '設定寬度
 End With
End Sub

misser wrote:
自己補充一下：若想彈...(恕刪)

惡魔印記666 wrote:
這個方法也是有缺點的...(恕刪)