Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
#51041
Olá estou criando uma macro para transferência de gráficos do Excel para word em formato de Imagens. Porem não estou conseguindo colocar essas imagens dispostas "Atras do texto". Alguém pode me ajudar?

.
Dim Grafico As ChartObject
Dim SaveToDirectory As String
Dim myFileName As String

SaveToDirectory = Environ("TEMP") & "\"

Sheets("Relatório").Select
ActiveWindow.Zoom = 100
ActiveWindow.ScrollColumn = 1

For i = 1 To 1000
ActiveWindow.ScrollRow = i
Next i

ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1

For i = 1 To 72

myFileName = "grafico" & i & ".jpg"

ActiveWindow.Zoom = 100


Set Gráfico = Sheets("Relatório").ChartObjects("Gráfico_" & i)
Gráfico.Chart.Export Filename:=SaveToDirectory & myFileName, Filtername:="jpg"


Set InsertGraph = wDoc.Bookmarks("Gráfico_" & i).Range
InsertGraph.Delete



With InsertGraph

.Select
.InlineShapes.AddPicture Filename:=SaveToDirectory & myFileName, Linktofile:=False, Savewithdocument:=True


End With
Next i
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord