Lỗi không thể zoom ảnh được chèn vào nhờ 1 code VBA khác

[motngaymoi0newday]

Chào cả nhà, mình có một lỗi mà không thể nào xử lý được, mình đã thử rất nhiều cách những vẫn không thể làm được, hi vọng các bạn có thể giúp mình với. Chuyện là mình có sử dụng 1 hàm VBA để có thể chèn ảnh vào excel và nó hoạt động tốt. Và 1 hàm VBA có thể phóng to ảnh lên nó cũng hoạt động tốt. Nhưng kì lạ là hàm VAB nó có thể phóng to ảnh được chèn tự nhiên vào trong excel, còn hình ảnh mà mình chèn vào từ hàm VAB thì nó lại không thể phóng to được ảnh. Nên nếu được hi vọng các bạn có thể giúp mình làm sao vẫn có thể phóng to ảnh bằng hàm VAB với hình ảnh được chèn tù hàm VAB khác được ạ. Cảm ơn mọi người. File excel gồm 2 hàm VBA để chèn ảnh và phóng to ảnh mình để ở dưới nhé.

 

[huyhoang_mmyeht]

như này không biết đúng ý chủ thớt không? trước khi sử dụng thì bạn nhớ xóa hình ảnh củ của file đi sau đó thêm mới hình ảnh vào nhấn nút button là ok

 

[motngaymoi0newday]

bạn có cách nào phóng to thu nhỏ tất cả ảnh luôn không, cái trên mình thấy nó chỉ có thể phóng to, thu nhỏ ảnh mới chèn thôi

 

[huyhoang_mmyeht]

Private Sub CommandButton1_Click()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If IsZoomed Then
            shp.LockAspectRatio = msoTrue
            shp.Width = shp.Width / 6
            shp.Height = shp.Height / 6
            IsZoomed = False
            CommandButton1.Caption = "Phong to"
        Else
            shp.LockAspectRatio = msoTrue
            shp.Width = shp.Width * 6
            shp.Height = shp.Height * 6
            IsZoomed = True
            CommandButton1.Caption = "Thu nho"
        End If
    Next shp
End Sub

bạn thay đoạn này vào nhé

 

[ongke0711]

còn hình ảnh mà mình chèn vào từ hàm VAB thì nó lại không thể phóng to được ảnh. Nên nếu được hi vọng các bạn có thể giúp mình làm sao vẫn có thể phóng to ảnh bằng hàm VAB với hình ảnh được chèn tù hàm VAB khác được ạ.

Bạn thêm cái Type 11 vô là được rồi..

If img.Type = 13 Or img.Type = 11 Then ...

 

[motngaymoi0newday]

Được rồi nè,cảm ơn b nhiều nhé, đúng là cao thủ