none
[VB2008]如何對Excel中的圖片作縮放 RRS feed

  • 問題

  • 請教各位大大:
    我有一個要匯出資料到Excel的表單,其中有包含圖片,
    原先我的作法是先在VB中處理圖片的尺寸(例如將1028*768的圖片轉換成514*384)
    ,使得匯出到Excel時,可以得到所需要的大小.
    但是在列印時發現因為改變了圖片的尺寸.而使得列印出來的圖片變的模糊許多.
    不知有沒有方法可以一方面保持原圖的尺寸,而又能在Excel中縮放圖片以達到我需要的大小?
    還是有其他的處理方式?
    請拜託指導一下,感恩感恩.
    • 已移動 璉璉Moderator 2010年3月20日 下午 01:27 (從:Visual Basic)
    2010年3月17日 下午 02:20

解答

  •         Dim sourceBitmap As New Bitmap(PictureBox1.Image)
    
            MsgBox("Org_Map Width : " & sourceBitmap.Width & vbCrLf & "Org_Map High : " & sourceBitmap.Height)
    
            Dim bmpOut As Bitmap = New Bitmap(Me.PictureBox2.Width, Me.PictureBox2.Height)
            Dim g As Graphics = Graphics.FromImage(bmpOut)
    
            g.InterpolationMode = Drawing2D.InterpolationMode.Bilinear
            g.DrawImage(sourceBitmap, New Rectangle(0, 0, CInt(0.6 * sourceBitmap.Width), CInt(0.6 * sourceBitmap.Height)), _
                                                    0, 0, sourceBitmap.Width, sourceBitmap.Height, GraphicsUnit.Pixel)
            Me.PictureBox2.Image = bmpOut

    Graphics.FromImage 方法
    • 已標示為解答 落跑羊 2010年3月18日 上午 07:54
    2010年3月18日 上午 07:27

所有回覆