Vẽ tranh bằng Excel - Quả tuyệt vời (1 người xem)

[MinhKhai]

Mới xem qua tranh, đã thấy Excel quả tuyệt vời
Không biết quá trình vẽ như thế nào nhỉ

http://sohoa.vnexpress.net/photo/gi...huat-duoc-ve-qua-microsoft-excel-3006894.html

 

[be_09]

Mới xem qua tranh, đã thấy Excel quả tuyệt vời
Không biết quá trình vẽ như thế nào nhỉ

http://sohoa.vnexpress.net/photo/gi...huat-duoc-ve-qua-microsoft-excel-3006894.html

View attachment 123927

Theo tôi nghĩ thì tạo các Shapes theo từng kiểu riêng biệt, sử dụng Format Auto Shapes để định dang màu rồi ghép chúng lại thành 1 bức tranh.

 

[Cá ngừ F1]

Mới xem qua tranh, đã thấy Excel quả tuyệt vời
Không biết quá trình vẽ như thế nào nhỉ

http://sohoa.vnexpress.net/photo/gi...huat-duoc-ve-qua-microsoft-excel-3006894.html

View attachment 123927

Ôi.. ếc xào thật là sáng tạo.. đâu chỉ có công thức hay cót két loằng ngoằng
Cảm ơn chủ thớt.. những bức tranh rất đẹp..

 

[ndu96081631]

Ôi.. ếc xào thật là sáng tạo.. đâu chỉ có công thức hay cót két loằng ngoằng
Cảm ơn chủ thớt.. những bức tranh rất đẹp..

Tôi không cho đó là hay, vì:

Ông Horiuchi sử dụng tính năng AutoShape trên Excel để cẩn thận tạo ra những hình dạng phức tạp, sau đó ông tô màu để tạo nên bức tranh hoàn chỉnh. Nội dung những bức tranh vẽ của Hourichi thường tái hiện lại những bức tranh vẽ nổi tiếng của Nhật Bản.

Có nghĩa là chỉ có thể khen ông này... kiên nhẫn thôi
HAY theo tôi là phải dùng VBA hoặc Chart để vẽ ---> Đó mói là sáng tạo có liên quan đến Excel
(bài này nhớ không lầm đã đăng trên GPE 1 lần rồi thì phải)
-----------------------
Tham khảo thêm bài này:
http://www.giaiphapexcel.com/forum/...n-phim-stop-motion-người-ta-dùng-Macro-hay-VB

 

[yeudoi]

Dạ em nhớ hình như chia sẽ từ 2010 gì đó

 

[MinhKhai]

Tôi không cho đó là hay, vì:

Có nghĩa là chỉ có thể khen ông này... kiên nhẫn thôi
HAY theo tôi là phải dùng VBA hoặc Chart để vẽ ---> Đó mói là sáng tạo có liên quan đến Excel
(bài này nhớ không lầm đã đăng trên GPE 1 lần rồi thì phải)
-----------------------

Nếu chỉ có kiên nhẫn thôi, thì không bao giờ làm được. Nếu chỉ có hiểu biết hội hoạ thôi cũng không làm được như vậy.
Trong ông ấy chắc hẳn còn có niềm đam mê về Excel, những hiểu biết nhất định về Excel.

Em quý trọng không chỉ sự kiên nhẫn và khả năng hội hoạ của ông ấy

 

[ndu96081631]

Nếu chỉ có kiên nhẫn thôi, thì không bao giờ làm được. Nếu chỉ có hiểu biết hội hoạ thôi cũng không làm được như vậy.
Trong ông ấy chắc hẳn còn có niềm đam mê về Excel, những hiểu biết nhất định về Excel.

Em quý trọng không chỉ sự kiên nhẫn và khả năng hội hoạ của ông ấy

Ông ấy biết hội họa là điều đương nhiên rồi, còn cái chuyện biết về Excel thì thực chất cũng chỉ là BIẾT thôi chứ tôi không cho rằng ông ta GIỎI Excel. Nếu dùng AutoShape thì ở đâu vẽ mà chẳng được (như Word chẳng hạn)
Học Excel theo hướng này cũng tốt ---> Sẽ làm giàu nhờ bán tranh. Ẹc... Ẹc...

 

[vanle33]

Tôi không cho đó là hay, vì:

Có nghĩa là chỉ có thể khen ông này... kiên nhẫn thôi
HAY theo tôi là phải dùng VBA hoặc Chart để vẽ ---> Đó mói là sáng tạo có liên quan đến Excel
(bài này nhớ không lầm đã đăng trên GPE 1 lần rồi thì phải)
-----------------------
Tham khảo thêm bài này:
http://www.giaiphapexcel.com/forum/...n-phim-stop-motion-người-ta-dùng-Macro-hay-VB

Em đồng ý với bác topic này đã được tạo từ lâu rồi em có đọc vài lần. Em có tìm lại bằng chức năng tìm kiếm của diễn đàn mà không thấy!

 

[ndu96081631]

Đây là "tranh" do GPE vẽ (dùng code VBA để vẽ, tác giả code là anh siwtom)



























"Tranh" này được vẽ theo phong cách hoàn toàn khác: Không dùng AutoShape mà tô màu từng điểm ảnh
Các bạn thấy sao?
Ẹc... Ẹc...

 

[Cá ngừ F1]

Đây là "tranh" do GPE vẽ (dùng code VBA để vẽ, tác giả code là anh siwtom)
View attachment 124000














"Tranh" này được vẽ theo phong cách hoàn toàn khác: Không dùng AutoShape mà tô màu từng điểm ảnh
Các bạn thấy sao?
Ẹc... Ẹc...

Chỉ có thể là QUÁ ĐẸP TRAI ạh...

 

[sealand]

Mình đồng tình với quan điểm của Ndu, đây không phải là người giỏi Excel chí ít trong mảng vẽ vời này. Người giỏi là người phải bắt Excel làm cho mình theo ý mình. Còn đây chỉ là mượn đồ của Excel còn lại phải kỳ cụi làm tất cả (Chưa kể không quen đồ hàng xóm còn mệt hơn dùng dao rựa nhà mình ). Mình cho những thành phần này thường là nhóm nguời tự ải, thích làm điều kỳ quái như khắc ảnh chân dung lên vỏ hạt dẻ chẳng hạn. Nó chỉ đánh giá về sự kỳ công mà thôi, còn đẹp và hiệu quả chắc chắn không thể so sánh với các phần mền đồ họa nào.
Chúng ta đa số là những người sống bằng rất nhiều nghề khác nhau cần Excel hỗ trợ mà đến với nhau. Xuất phát khoa học vị nhân sinh nên cái chúng ta cần là cái mà Excel làm cho ta theo yêu cầu của ta mà chắc chắn nó phải "khỏe" hơn ta tự làm hoặc nhờ thằng khác mà ta không điều khiển được.

Nhìn bức ảnh mà bác Siwtom vẽ (Đúng ra là bác ấy lệnh cho Excel làm) nó cũng cho 1 kết quả phi thường ấy chớ. Cái chính là giờ có ai cần bác ấy vẽ lại Avata của mình thì thì chỉ cần Run Code là OK, chứ bác ấy đâu có ngồi chấm lại từng điểm ảnh phải không?. (Hì, mình đang viết mà đã thấy cái ứng dụng thực tiễn của Code: Mấy cha lưu trữ ảnh nhỏ giờ có thể phóng to hơn 1 chút mà vẫn đảm bảo hình hơn là giãn ảnh)
Trước đây cũng đã có thấy 1 file mà người ta lập trình phát nhạc và dùng các ký tự điền vào các cell thu nhỏ thành video hoạt hình ca nhạc thật hay. Hoặc như file phát nhạc trên Excel của anh Nguyễn Duy Tuân nhà ta mà anh em có thể nghe hay chơi nhạc được trên Excel.
Mình cho đây mới là các kỳ tích Excel.
Vài câu tranh luận thôi, anh em thông cảm.

 

[ndu96081631]

Chỉ có thể là QUÁ ĐẸP TRAI ạh...

Giờ thì... bớt đẹp goài.
Ôi... đàn bà hủy hoại đời ta
Ẹc... Ẹc...

 

[Cá ngừ F1]

Giờ thì... bớt đẹp goài.
Ôi... đàn bà hủy hoại đời ta
Ẹc... Ẹc...

Đâu có đâu.. e thấy những bức ảnh gần đây thầy NDU trông... trộm vía... rất chi là THỊNH VƯỢNG đó chứ ạh...

 

[ptm0412]

Vẽ bằng Autoshape, thì vẽ đâu cũng được, cần gì biết Excel: Không khéo vẽ trong word thì lại khen ông này giỏi word, vẽ trong publisher, trong ... thì lại khen giỏi Publisher, ...

 

[kuldokk]

Đây chia sẻ với mọi người dùng thử

Option ExplicitSub LoadImageIntoExcel()        Me.Activate        Dim strFileName As String        Dim bmpFileHeader   As BITMAPFILEHEADER        Dim bmpInfoHeader   As BITMAPINFOHEADER        Dim ExcelPalette()  As PALETTE        Dim Palette24       As PALETTE24Bit        Dim i               As Integer        Dim r As Integer, c As Integer        Dim dAdjustedWidth  As Double        Dim Padding         As Byte        On Error GoTo CloseFile        strFileName = Application.GetOpenFilename        Open strFileName For Binary As #1        Get #1, , bmpFileHeader        Get #1, , bmpInfoHeader
    If bmpInfoHeader.lngWidth Mod 4 > 0 Then        dAdjustedWidth = (((Int((bmpInfoHeader.lngWidth * bmpInfoHeader.intBitCount) / 32) + 1) * 4#)) / _                            (bmpInfoHeader.intBitCount / 8#)        If dAdjustedWidth Mod 4 <> 0 Then               dAdjustedWidth = Application.RoundUp(dAdjustedWidth, 0)        Else              dAdjustedWidth = bmpInfoHeader.lngWidth        End If        If bmpInfoHeader.intBitCount <= 8 Then        ReDim ExcelPalette(0 To 255)                For i = 0 To UBound(ExcelPalette)            Get #1, , ExcelPalette(i)        Next i        Dim bytPixel As Byte                For r = 1 To bmpInfoHeader.lngHeight                       For c = 1 To dAdjustedWidth                                If c <= bmpInfoHeader.lngWidth Then                                      Get #1, , bytPixel                                Me.Cells(bmpInfoHeader.lngHeight + 1 - r, c).Interior.Color = _                                RGB(ExcelPalette(bytPixel).red, _                                ExcelPalette(bytPixel).green, _                                ExcelPalette(bytPixel).blue)                                DoEvents                                Else                                Get #1, , Padding                                Me.Cells(bmpInfoHeader.lngHeight + 1 - r, c).Interior.Color = _                                RGB(255, 255, 255)                                End If                
            Next c        Next r            Else                    For r = 1 To bmpInfoHeader.lngHeight            For c = 1 To dAdjustedWidth                                If c <= bmpInfoHeader.lngWidth Then                    Get #1, , Palette24                    Me.Cells(bmpInfoHeader.lngHeight + 1 - r, c).Interior.Color = _                        RGB(Palette24.red, _                            Palette24.green, _                            Palette24.blue)                Else                    Get #1, , Padding                    Me.Cells(bmpInfoHeader.lngHeight + 1 - r, c).Interior.Color = _                        RGB(255, 255, 255)                End If                DoEvents            Next c        Next r            End If        MsgBox "Done"CloseFile:    If Len(Err.Description) > 0 Then MsgBox Err.Description    Close #1End Sub
Type  BITMAPFILEHEADER    strFileType     As String * 2    lngFileSize     As Long    bytReserved1    As Integer     bytResrved2     As Integer    lngBitmapOffset As LongEnd TypeType BITMAPINFOHEADER    lngSize             As Long    lngWidth            As Long    lngHeight           As Long    lngPlanes           As Integer    intBitCount         As Integer    lngCompression      As Long    lngSizeImage        As Long    lngXPelsPerMeter    As Long    lngYPelsPerMeter    As Long    lngClrUsed          As Long    lngClrImportant     As LongEnd TypeType PALETTE    blue        As Byte    green       As Byte    red         As Byte    reserve     As ByteEnd Type    Type PALETTE24Bit    blue        As Byte    green       As Byte    red         As ByteEnd Type

P.S: Không hiểu sao em không thể nào copy, paste code vào mà format nó đúng được