Làm sao để lấy flash trong Excel

[terran]

Làm sao để lấy 1 file flash được nhúng trong Excel ra đây hả các bạn.

 

[TranThanhPhong]

Nhúng Flash vào Excel hay PowerPoint

Chào các bạn,

Để nhúng Flash vào Excel thì dễ nhưng lấy file Flash (.swf) ra lại mình vẫn chưa biết cách lấy. Các bạn nghiên cứu xem nhé.

Cách nhúng:
1. Có một tập tin Flash cần nhúng .swf
2. Chọn VIEW|TOOLBARS|Control Toolbox

3. CONTROL TOOLBOX|MORE CONTROLS

4. Chọn SHOCKWAVE FLASH OBJECT
5. Vẽ một hình chữ nhật theo nhu cầu cần dùng
6. Nhấp phải chuột lên hình vừa vẽ và chọn PROPERTIES.

7. Tại ngăn Alphabetic, chọn:

• EMBED MOVIE - chọn TRUE
• LOOP - chọn FALSE (nếu TRUE thì sẽ loop).
• MOVIE - Gõ đường dẫn đến tập tin cần nhúng (Vd: c:\DATA\datbom.swf)
• Nếu tập tin .swf cùng thư mục với tập tin đang làm việc thì chỉ cần nhập tên tập tin.

Các bạn nghiên cứu cách trích Flash ra!

TP.

 

[Shinec]

Dùng soft save flash, bạn muốn lấy flash ở đâu cũng được chứ ko riêng gì excel. Vào google search nếu không có thì để địa chỉ mail lại mình send cho.

 

[forgive4me]

Việc nhúng flash quả là khó, thanks nha, mình cảm thấy việc lấy flash lại dễ dàng lắm cơ. Không biết vì ngày xưa minh hay mày mò hay sao ý. Bạn Down cái flash hunter này về rồi sài thử nha. Trước mình có phần mềm hay lém nhưng quên mất dã để đâu roài. http://flash2x.net/flashhunter/download.html

Đây nè, mình để trong trang web tập làm của mình. Đảm bảo có flash nào là ăn ngay.
Chúc vui vẻ.
http://www.freewebs.com/friendship_vnpt/Flashmovie.zip

 

[mymichau]

Em đã lấy được Flash nhúng vào Exceel bằng cách :
Thực hiện các bước như ttphong2007 hướng dẫn. Sau đó clich vào nút Design mode ( hình Eke trong thanh Control Toolbox ) thì file Flash sẽ được nhúng vào ngay.

 

[boyxin]

Mời các bạn xem file đính kèm

 

[helloGPE]

Trích xuất Flash

Đoạn code VBA trích xuất file Flash ra khỏi các tập tin Word, Excel,...

Nguồn: http://www.walkernews.net/2008/03/22/how-to-extract-swf-flash-from-excel-or-word/

 

[Po_Pikachu]

Chính xác thì bạn chỉ cần chép code này vào 1 file Excel bất kỳ. (Bằng cách nhấn Alt + F11 -> nhấn phải chuột trên khung Project - VBAProject -> chọn Insert -> Module -> Paste đoạn code bên dưới vào -> Và chọn Run)

Sub ExtractFlash()
Dim tmpFileName As String
Dim FileNumber As Integer
Dim myFileId As Long
Dim MyFileLen As Long
Dim myIndex As Long
Dim swfFileLen As Long
Dim i As Long
Dim swfArr() As Byte
Dim myArr() As Byte
tmpFileName = Application.GetOpenFilename("MS Office File (*.doc;*.xls), *.doc;*.xls", , "Open MS Office file")
If tmpFileName = "False" Then Exit Sub
myFileId = FreeFile
Open tmpFileName For Binary As #myFileId
MyFileLen = LOF(myFileId)
ReDim myArr(MyFileLen - 1)
Get myFileId, , myArr()
Close myFileId
Application.ScreenUpdating = False
i = 0
Do While i < MyFileLen
If myArr(i) = &H46 Then
If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then
swfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)
ReDim swfArr(swfFileLen - 1)
For myIndex = 0 To swfFileLen - 1
swfArr(myIndex) = myArr(i + myIndex)
Next myIndex
Exit Do
Else
i = i + 3
End If
Else
i = i + 1
End If
Loop
myFileId = FreeFile
tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf"
Open tmpFileName For Binary As #myFileId
Put #myFileId, , swfArr
Close myFileId
MsgBox "Save the extracted SWF Flash as [ " & tmpFileName & " ]"
End Sub

Khi chạy thì nó hỏi bạn nơi để file Excel chứa file Flash -> Bạn chọn xong -> OK là xong.
Thân.

 

[ongtrungducmx25]

Còn trích xuất flash trong UF thì đoạn code nào vậy nhỉ! Po_pikachu (N).

 

[cocnho]

Hi, Tôi cũng làm giống như các bước các bạn chỉ, và khi làm xong mở lên thì file chạy bình thường nhưng khi gửi đi theo dạng attach file thì người nhận mở ra nó ko chạy. Vậy tôi còn thiếu gì hay sai sót chỗ nào mà file flash tôi nhúng vào excel nó lại không chạy. Tôi cũng đã thử với cùng một cách với WORD nhưng cũng bị lỗi tương tự như thế, khi mở ở máy của tôi thì chạy bình thường, khi gửi đi thì nó bị lỗi. Cám ơn các bạn. ( tôi đã cố nhưng ko thể chèn file vào trong đây được ).

 

[ndu96081631]

Hi, Tôi cũng làm giống như các bước các bạn chỉ, và khi làm xong mở lên thì file chạy bình thường nhưng khi gửi đi theo dạng attach file thì người nhận mở ra nó ko chạy. Vậy tôi còn thiếu gì hay sai sót chỗ nào mà file flash tôi nhúng vào excel nó lại không chạy. Tôi cũng đã thử với cùng một cách với WORD nhưng cũng bị lỗi tương tự như thế, khi mở ở máy của tôi thì chạy bình thường, khi gửi đi thì nó bị lỗi. Cám ơn các bạn. ( tôi đã cố nhưng ko thể chèn file vào trong đây được ).

Chắc chắn thiếu chổ EMBED MOVIE - chọn TRUE
Bài #2 đã hướng dẩn đầy đủ rồi

 

[khongtu19bk]

Có cách nào cho flash vào userform không hả bác?

 

[ngodany135]

Có cách nào cho flash vào userform không hả bác?

Có chứ bạn. Vẫn đơn giản như đưa flash vào trang tính excell vậy, tuy nhiên bạn phải có công cụ hoặc bạn cài đặt bộ office đầy đủ thì Ok bạn nhé. MỜI BẠN XEM FILE

 

[khongtu19bk]

Có chứ bạn. Vẫn đơn giản như đưa flash vào trang tính excell vậy, tuy nhiên bạn phải có công cụ hoặc bạn cài đặt bộ office đầy đủ thì Ok bạn nhé. MỜI BẠN XEM FILE

công cụ ở đây là gì vậy bạn
Bộ office đầy đủ là sao cơ, mình không hiểu, tưởng ra chợ mua đĩa offcie 2003 về cài thế là đủ rồi ^^

 

[ndu96081631]

công cụ ở đây là gì vậy bạn
Bộ office đầy đủ là sao cơ, mình không hiểu, tưởng ra chợ mua đĩa offcie 2003 về cài thế là đủ rồi ^^

Nói tóm lại thế này: Nếu bạn có thể chèn flash vào sheet thì trên UserForm cũng tương tự (chổ này được thì chổ kia cũng phải được)

 

[khongtu19bk]

Nói tóm lại thế này: Nếu bạn có thể chèn flash vào sheet thì trên UserForm cũng tương tự (chổ này được thì chổ kia cũng phải được)

Cảm ơn bác ndu. Em đã chèn flash vào sheet hoàn toàn ok, nhưng lại loay hoay không chèn nổi flash vào userform

 

[ndu96081631]

Cảm ơn bác ndu. Em đã chèn flash vào sheet hoàn toàn ok, nhưng lại loay hoay không chèn nổi flash vào userform

Xem minh họa:

[video=youtube;71f9PS1nH_Y]http://www.youtube.com/watch?v=71f9PS1nH_Y[/video]

 

[khongtu19bk]

Hjc, trong userform của em, toolbox không giống của bác ndu rồi, làm sao đây

 

[ndu96081631]

Hjc, trong userform của em, toolbox không giống của bác ndu rồi, làm sao đây

Click phải vào vùng trống của Toolbox, chọn Additional Controls sẽ tìm được Shockwave Flash
Còn nếu như Additional Controls không hoạt động thì xem bài này
http://www.giaiphapexcel.com/forum/...t-tình-trạng-Additional-Controls-mất-tác-dụng

 

[khongtu19bk]

Có chứ bạn. Vẫn đơn giản như đưa flash vào trang tính excell vậy, tuy nhiên bạn phải có công cụ hoặc bạn cài đặt bộ office đầy đủ thì Ok bạn nhé. MỜI BẠN XEM FILE

Cảm ơn bác ndu, em cho flash vào đc rồi.

To ngodany: tớ xóa file flash trong thư mục của cậu, user form của bạn vẫn hiển thị flash bình thường. có lẽ flash được đính luôn trên userform?